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.REM a 


IDENTIFICATION 


PRODUCT CODE: AC-F956B8-MC 

PRODUCT NAME: CZRJKBO RPO7 FORMAT/SCANNER 
PRODUCT DATE: DECEMBER 1, 1983 

MAINTAINER: CX DIAGNOSTIC ENGINEERING 
AUTHOR : MIKE LEAVITT 


Bi 


THE INFORMATION IN THIS DOCUMENT IS wiwy: TO CHANGE WITHOUT 


NOTICE AND SHOULD NOT BE CONSTRUED AS A 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 


COMMITMENT BY DIGITAL 


RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 


SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 


AFFILIATED COMPANIES. 


COPYRIGHT (C) 1963 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PoP UNIBUS 
DEC 


DECUS DECTAPE 


MASSBUS 


SEQ 0001 
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1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


THE RPO7 FORMATTER PROGRAM FULFILLS THE REQUIREMENTS FOR A 16 BIT 
MANUFACTURING AND FIELD FORMAT PROCESS. THE FORMAT PROCESS FOR RPO7 
oie FROM PREVIOUS RPXX DEVICE TECHNOLOGY IN SEVERAL 


A) THE FORMAT PROCESS USES MEDIA “DEFECT SKIPS” IN ADDITION TO BAD 
SECTOR FLAGGING, 


8) THE FORMATTER PROGRAM, A STAND ALONE PROGRAM, CAN BE USED IN 
THE FIELD, BUT NOT INDISCRIMINATELY. THIS PROGRAM IS INTENDED 
FOR USE IN 2 DIFFERENT ENVIRONMENTS: 


1. AT THE VENDOR'S MANUFACTURING SITE 


2. AT THE CUSTOMERS SITE, USED BY TRAINED DEC FIELD 
SERVICE PERSONNEL 


THE FORMAT PROGRAM ACCEPTS TRACK DESCRIPTOR DATA WHICH MAPS THE 

ABSOLUTE CENTER OF A Pos PERFORMS CALCULATIONS ON THIS INPUT DATA, 
THEN CREATES AN OUTPUT MAP OF THE TRACK DEFECTS, SHOWING THE LOCATION 
OF THE DEFECT SKIP RELATIVE TO PLACEMENT WITHIN A GIVEN SECTOR. THIS 
MAP IS THEN USED TO FORMAT OR VERIFY THE FORMAT FOR A SPECIFIED TRACK. 


THE FORMAT PROGRAM ALSO CONTAINS A PACK SCAN MODE OF OPERATION. WHEN 
RUN _IN THIS MODE, DEFECTS WHICH CAUSE DATA OR HEADER ERRORS WILL BE 
MAPPED AND ADDED TO THE EXISTING TRACK DESCRIPTOR RECORDS AS NECESSARY. 


THE RPO7 FORMATTER PROGRAM HAS SEVERAL USES, THE MAIN FUNCTION 
HOWEVER, IS 10 CREATE THE FORMAT USED FOR THE PDP11 (16 BIT) PRODUCTS. 
THIS FUNCTION, INTENDED FOR USE AT THE MANUFACTURING SITE BY THE 
MANUFACTURER, AND IN THE FIELD BY THE TRAINED FIELD ENGINEER, CONTAINS 
THE FOLLOWING PROCESSES: 


A) GIVEN THAT THE TRACK DESCRIPTORS ARE ALREADY WRITTEN ON THE 
ORIVE, THE PROGRAM WILL MAP THE STARTING LOCATIONS OF ALL 
NEEDED DEFECT SKIPS. 


8) DEPENDENT UPON USER INPUT, THE PROGRAM WILL THEN FORMAT OR 
FORMAT VERIFY EITHER A SELECTED TRACK, PART OF A DRIVE'S 
SURFACE OR AN ENTIRE ORIVE. 


C) ASSUMING A HIGH DEGREE OF SOPHISTICATION ON THE PART OF THE 
USER, THE PROGRAM WILL ALLOW MANUAL ENTRY OF TRACK DESCRIPTOR 
INFORMATION, THEN REWRITE A GIVEN TRACK DESCRIPTOR, PER USER 
INPUT VIA_THE CONSOLE KEYBOARD. IMPLIED HERE IS THE NEED TO 
—— THE SPECIFIED TRACK BASED ON THE NEW TRACK DESCRIPTOR 


IF RUNNING THE FIELD VERSION OF THIS PROGRAM, WARNING MESSAGES 
WILL BE GENERATED TO INSURE THAT THE USER HAS A CHANCE TO 
CHANGE FUNCTIONS AND AVOID A POSSIBLE CATASTROPHY, I.E, 
DESTRUCTION OF A SYSTEM DATA FILE. 


SEQ 0003 


El 
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0) WHEN PERSISTENT DATA OR HEADER ERRORS ARE DETECTED, THE FORMATTER 
CAN BE RUN IN THE PACK-SCAN MODE OF OPERATION. THIS OPERATION, 
WHICH RUNS TO COMPLETION PRIOR TO EXECUTING ANY FORMAT FUNCTION, 
WRITES THREE DATA DATA PATTERNS CALL O'S, ALL 1'S AND WORST CASE) 
ON THE USER SELECTED AREA IN AN ATTEMPT TO ISOLATE ANY UNMAPPED 
MEDIA DEFECTS. WHEN DEFECTS ARE DETECTED, THE ASSOCIATED TRACK 
DESCRIPTOR RECORD IS UPDATED (CIN MEMORY ONLY) TO INCLUDE THE 
NEW DEFECT(S). UPON COMPLETION OF THIS MODE OF OPERATION, THE 
FORMATTER PROGRAM MAY BE RUN TO MASK THE NEW DEFECT LIST ON 
THE AFFECTED MEDIA. 


THIS PROGRAM HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME 
SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE 
TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. THIS PROGRAM CAN BE 
USED WITH XXDP+, ACT, APT, AND SLIDE. FOR A COMPLETE DESCRIPTION Yd 
THE RUNTIME SERVICES, REFER TO THE XXDP+ USER'S MANUAL. THERE IS A 
BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
THIS PROGRAM, IN ORDER TO EXECUTE, WILL REQUIRE THE FOLLOWING HARDWARE: 

1. AN XXDP+ LOAD MEDIUM, 

2. CONSOLE TERMINAL 

3. A MINIMUM OF 286K OF MAIN MEMORY. 

4. A PDP11 PROCESSOR EXCEPT AN LSI 11, AND APPROPRIATE MASSBUS 
CONTROLLER WHICH CONFORMS TO DEC STD 159, AND HAS A DATA 
TRANSFER RATE EQUIVALENT TO OR GREATER THAN 2.2 MBYTES/SEC. 

S. AT LEAST ONE RPO7. 

6. OPTIONALLY, A LINE PRINTER MAY ALSO BE USED BY THE PROGRAM. 

1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USER'S MANUAL - CHQUS 


1.4 OIAGNOSTIC HIERARCY PREREQUISITES 
ALL CPU, MEMORY AND TERMINAL DIAGNOSTICS MUST RUN SUCCESSFULLY TO 

COMPLETION. 

RPO7 FRONT END DIAGNOSTIC MUST RUN SUCCESSFULLY TO COMPLETION. 

1.5 ASSUMPTIONS 

PROPER USE OF THIS PROGRAM REQUIRES THAT THE USER BE FAMILIAR WITH 
THE RULES WHICH APPLY TO DEFECT SKIPPING, AS APPLIED TO THE RPO7. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


SEQ 0004 


Fi 
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2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
CSUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER’S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED CAFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 


CONSIDERED TO BE ACTIVE AT START TIME 


OROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL wg ptt CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE oe so 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “STAR 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY Do ha am 


THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF T 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5, 7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT oe RUN: 
/PASS :DD000 EXECUTE DODOD PASSES (DODDD = 1 TO 64000) 
/FLAGS :FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 


ION 2.53. 
7EOP :DDD0D REPORT END OF PASS MESSAGE AFTER EVERY 
C(DDDDD = 1 TO 64000 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-S/PASS: 1000/EOP : 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 


EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE ENO OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 


SEQ 0005 


Gl 
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SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5" INSTEAD OF “/TESTS:1-5", 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE WALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IERs INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR NUMBER, PC, TEST AND UNIT) 

IxXRe INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI OIRECT MESSAGES TO LINE PRINT 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 


ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 


STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION CON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*# ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEQ 0006 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ? ” 
YOU MUST ANSWER “Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


UNIT O 

RPCS1 ADRS (0) 176700 ? 
VECTOR ADRS (0) 254 ? 
BR LEVEL (0) 


ORIVE @ (0) 0 ? 


THE 1ST QUESTION “RPCS1 ADRS” REQUIRES THAT THE USER INPUT THE 
RPCS1 ADDRESS OF THE CONTROLLER WHICH IS CONNECTED TO THE DRIVE 
UNDER TEST. DEFAULT IS 176700 (OCTAL). 


THE 2ND QUESTION “VECTOR ADRS” REQUIRES THE USER TO INPUT THE 
ame ADORESS OF THE RHXX CONTROLLER. DEFAULT IS 


THE 3RD QUESTION “BR LEVEL” REQUIRES THE USER TO INPUT THE CONTROLLER 
INTERRUPT PRIORITY LEVEL. DEFAULT IS LEVEL 5S. 


THE 4TH QUESTION “DRIVE @” REQUIRES THE USER TO SPECIFY THE DRIVE 
NUMBER OF THE DRIVE TO BE TESTED. DEFAULT IS 0 (OCTAL). 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A START 

OR RESTART COMMAND, THE FOLLOWING PROMPT ASK YOU TO ENTER AN OPTION. 
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S). 


“AVAILABLE OPTIONS FOLLOW; 
*FORMAT 


ViauUnNro 
a 
eo 
io 
wo 
4 


*WRITE "re- 2 


SEQ 0007 
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ENTER OPTION (6*HELP) (D) 0 ? ” 


A ‘0’ RESPONSE WILL ALLOW THE USER TO FORMAT HEADERS AND DATA ON 
THE DISK PACK. A _‘1' RESPONSE WILL ALLOW THE USER TO VERIFY TO'S 
AND HEADERS. A _‘'2' RESPONSE WILL ALLOW THE USER TO SCAN THE DISK 
PACK FOR NEW DEFECTS AND RECORD THEM, IF DESIRED. A ‘3’ RESPONSE 
WILL ALLOW THE USER TO LIST THE TRACKS WHICH HAVE DEFECTS AND LIST 
THE HEADER INFORMATION OF THE DEFECTIVE SECTORS, IF DESIRED. A 
a RESPONSE WILL ALLOW THE USER TO MODIFY THE TRACK DESCRIPTOR. 

A 'S' RESPONSE WILL ALLOW THE USER TO WRITE THE SECOND FE CYLINDER 
ONLY. A ‘6’ RESPONSE WILL PRINT A LIST OF VALID OPTIONS FOR THE 
FORMATTER PROGRAM (AS ABOVE). 


IF THE FIELD VERSION OF THIS PROGRAM IS BEING RUN AND A ‘0’, ‘2' 
OR ‘4’ RESPONSE TO THE PREVIOUS OPTION PROMPT IS RECIEVED. THE 
FOLLOWING QUESTION —_ BE ASKED. OTHERWISE, THE NEXT TWO 
QUESTIONS ARE SKIPPE 

“DO YOU WANT TO WRITE ANYWHERE ON MEDIA (L) N ?” 

IF THE RESPONSE TO THE PREVIOUS QUESTION IS 'N’', THE FOLLOWING 
QUESTION WILL BE SKIPPED AND PROGRAM WILL PROCEED TO WRITE ONLY 
ON THE FE CYLINDER. A _‘Y' RESPONSE WILL PRINT THE FOLLOWING 
WARNING MESSAGE TO THE OUTPUT DEVICE AND ASK THE FOLLOWING 
QUESTION. 

“ _ $ CUSTOMER DATA WILL BE OVERWRITTEN ! 

CONTINUE (L) ? “ 

THE USER MAY OPT TO RESTRICT THE PROGRAM TO WRITTING ON THE FE 


CYLINDER ONLY BY ANSWERING ‘'N’ TO THE QUESTION OR CONTINUE TO 
WRITE ON THE ENTIRE MEDIA BY ANSWERING ‘Y'. 


THE USER MAY OPT TO CHANGE THE DRIVE PARAMETERS IN CERTAIN MODES 
OF OPERATION. YOU MAY DO SO BY ANSWERING THE FOLLOWING PROMPT. 
“CHANGE DRIVE PARAMETERS (L) N ? “” 


A ‘Y' RESPONSE WILL ALLOW THE USER TO CHANGE THE DRIVE PARAMETERS, 
WHILE A ‘N’ RESPONSE WILL ASK THE NEXT APPROPRIATE QUESTION. 


“MIN CYL (D) 0 ? “ 
“MAX CYL (0) 630 ? ” 
“MIN TRK (0D) O ? ” 
“MAX TRK (D) 31 7? ” 
in Be on dt ye "Senition PARAMETERS, MAY INCREASE OR 


WHEN THE FORMAT OPTION (0) IS SELECTED, THE VERIFICATION AFTER A FORMAT 
MAY BE DESELECTED VIA THE FOLLOWING QUESTION. 
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“INHIBIT WRITE CHECK (L) N ? ” 


A ‘Y' RESPONSE WILL INHIBIT THE WRITE-CHECK OPERATION. WHILE, A 
pee aTiDe WILL TERMINATE CONSOLE DIALOGUE AND COMMENCE 


— SCAN OPTION (2) IS SELECTED, THE FOLLOWING QUESTION WILL BE 


“DO YOU WANT TO UPDATE TOCS) WITH NEW DEFECT(S) (L) N ? ” 


A _'Y' RESPONSE WILL CAUSE THE PROGRAM TO FORMAT THE DISK WITH THE 
NEWLY FOUND DEFECTS AFTER THE COMPLETION OF THE CURRENT PACK SCAN. 


— LIST OPTION (3) IS SELECTED, THE FOLLOWING QUESTIONS WILL BE 


“LIST HEADER INFO IN DEFECT SECTOR(S) (L) N ? ” 


A ‘'N' RESPONSE WILL CAUSE THE FOLLOWING MESSAGE AND DATA TO BE 
the TO THE OUTPUT DEVICE OF A TRACK THAT HAS A DEFECT IN 
7 3 


TOCS) WITH DEFECTS FOLLOW: 

WORD@1 ( CYL) WORD@2 (CTRK)(SEC) WORD@S WORD@4 WORD@S WORDOG 
031122 (594.) 004777 (€ 9.)€377) 5415. 398. 140000 140000 
071126 (598.) 004777 ( 9.)¢€377) 118. 4691. 108. 140000 


NOTE: SEE TD € HEADER DEFINITIONS AT END OF THIS SECTION 


A_‘Y’ RESPONSE WILL CAUSE THE FOLLOWING MESSAGE AND DATA TO BE 
PRINTED TO THE OUTPUT DEVICE OF A TRACK THAT HAS A DEFECT IN IT'S 
TO. THE ADDED HEADER INFO IS THE HEADER INFORMATION OF THE 
SECTOR IN WHICH THE DEFECT WAS PLACED; 


TOCS) WITH DEFECTS FOLLOW CINCLUDING HEADER INFO): 
WORD@1 ( CYL) WORD@2 CTRK)(SEC) WORD@S WORD@4 WORDOS WORDOG 
031122 (594.) 004777 ( 9.)€377) 5415. 398. 140000 140000 


004410 ( 8.) 176. 140000 140000 140000 
004440 (32.) 221. 140000 140000 140000 
071126 (598.) 004777 ( 9.)(377) 118. 4891. 108. 140000 
004407 ( 7.) Se. 108. 140000 140000 


NOTE: SEE TO & HEADER DEFINITIONS AT END OF THIS SECTION 
WHEN THE MODIFY OPTION (4) IS SELECTED, THE FOLLOWING QUESTION WILL 
BE ASKED TO DETERMINE THE MEANS BY WHICH THE USER WANTS TO MODIFY THE 
TRACK DESCRIPTOR. 

“MODIFY BY (O=WORDS, 1=INDEX, 2=CHANGE) (D) 0 ? ” 

A ‘0’ RESPONSE WILL ALLOW THE USER TO INSERT A DEFECT BY THE 


WORD COUNT POSITION IN A PARTICULAR THIS 
METHOD SHOULD USED WHEN A DEFECT OCCURS WITHIN THE DATA AREA 


- —— + + eet 


SEQ 0009 


| 
| 


SECTOR ON THE DISK, 


K1 
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THE 
‘9’ 


OF A SECTOR. 
A ‘1' RESPONSE WILL ALLOW THE USER TO INSERT A DEFECT BY THE 
NUMBER OF WORDS FROM INDEX PULSE ON A PARTICULAR TRACK ADORESS. 
THIS METHOD SHOULD BE USED WHEN THE TRACK DESCRIPTOR AND/OR 
HEADER O IS TO BE MOVED, DO TO A DEFECT WHICH OCCURED IN EITHER 
' BOTH OF THESE AREAS. 

‘2' RESPONSE WILL ALLOW THE USER TO CHANGE A DEFECT DIRECTLY 
TN THE TRACK DESCRIPTOR. THIS METHOD SHOULD BE USED WHEN 
RESTORING A TD BACK TO SOME ALREADY KNOWN CONDITION. 


THE FOLLOWING 2 QUESTIONS WILL BE ASKED TO DETERMINE THE DISK 
ADDRESS WHICH IS TO BE MODIFIED BY THE USER. 


"CYLINDER ADDRESS (0D) 0 ? ” 

“TRACK ADDRESS (0D) 0 ? ” 
AFTER DETERMINING THE DESIRED DISK ADDRESS TO BE MODIFIED, ONE 
OF FOLLOWING SETS OF QUESTIONS WILL BE ASKED, DEPENDING ON WHICH 
METHOD OF MODIFICATION WAS CHOSEN. 

“SECTOR ADDRESS (0) ? ” 

“WORD IN SECTOR (D) ? ” 


AFTER THE CORRECT RESPONSE TO THE ABOVE PROMPTS, THE DIALOGUE WILL 
TERMINATE AND MODIFYING WILL COMMENCE. 


“WORDS FROM INDEX (D) ? “ 


AFTER THE CORRECT RESPONSE TO THE ABOVE PROMPTS, THE DIALOGUE WILL 
TERMINATE AND MODIFYING WILL COMMENCE. 


“TYPE <CR> TO INPUT (0*140000) DATA; 
TO WORD@S (0) O ? 


TO WORD@4 (D0) O ? 
TO WORD@S (0) 0 ? 
TO WORD@6 (0D) 0 7? ” 


AFTER THE CORRECT RESPONSE TO THE ABOVE PROMPTS, THE DIALOGUE WILL 
TERMINATE AND MODIFYING WILL COMMENCE. 


ON COMPLETETION OF THE MODIFY OPERARTION, THE USER WILL BE 
PROMPTED WITH THE FOLLOWING QUESTION; 


“DO YOU WANT TO MODIFY ANYMORE TD’'S (L) N ? “ 

A ‘N’ RESPONSE WILL ALLOW THE USER TO CONTINUE TO NEXT DEVICE 
ON-LINE OR TO RETURN TO THE DRS PROMPT IF ONLY ONE DEVICE WAS 
BEING MODIFIED. A ‘Y' RESPONSE WILL a THE USER TO MODIFY 
ANOTHER TO WITHOUT RESTARTING THE PROGRAM 


FOLLOWING IS AN EXAMPLE OF MODIFIING THE TD BY USING MODIFY OPTION 
(WORDS MODE), TO INSERT A DEFECT WHICH IS IN THE DATA AREA OF A 


SEQ 0010 


- 


| 
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PARTICULAR DISK ADDRESS; 
EXAMPLE 1) 
MODIFY BY CO=WORDS, 1=INDEX, 2*CHANGE) (D) O ?<CR> 
CYLINDER ADDRESS (D) 0O ? S598<CR> 
TRACK ADDRESS (D) 0 ? 9<CR> 
CURRENT TD, 
WORD@1 ( CYL) WORD@2 (CTRK)CSEC) WORD@3 WORDO4 WORD@S WORDOG 
031126 (598.) 004777 ¢ 9.)(377) 140000 140000 140000 140000 
SECTOR ADDRESS (D) ? 7<CR> 
WORD IN SECTOR (D) ? 150<CR> 
CHANGED TD, 
WORD@1 ( CYL) WORD@2 CTRK)CSEC) WORD@3 WORDO4 WORD@S WORDOG 
031126 (598.) 004777 ( 9.)€377) 5009. 140000 140000 140000 
DO YOU WANT TO MODIFY ANYMORE TO‘'S (L) N ? Y<CR> 
THE FOLLOWING IS AN EXAMPLE OF MODIFIING THE TD BY USING MODIFY OPTION 
‘1' CINDEX MODE), TO INSERT A DEFECT WHICH IS IN TD OF OF A PARTICULAR 
DISK ADDRESS; 
NOTE: USE 118. (DECIMAL) TO MOVE A TD AND 163. (DECIMAL) TO MOVE HDR O. 
EXAMPLE 2) 
MODIFY BY (O=WORDS, 1=INDEX, 2=CHANGE) (D) O ? 1<CR>» 
CYLTNDER ADDRESS (D0) 598 ? <CR> 
TRACK ADDRESS (0) 9 ? <CR> 
CURRENT TD, 
WORD@1 ( CYL) WORD@2 (CTRK)(SEC) WORD@S WORD@4 WORD@S WORDOG 
031126 (598.) 004777 ( 9.)€377) 5009. 140000 140000 140000 
WORDS FROM INDEX (D) ? 118<CR> 
CHANGED TD, 
WORD@1 ( CYL) WORD@2 (CTRK)C(SEC) WORD@3 WORD@4 WORD@S WORDOG 
O7112€ (598.) 004777 (¢ 9.)€377) 118. 4891. 140000 140000 
DO YOU WANT TO MODIFY ANYMORE TD’S (L) Y ? <CR> 
THE FOLLOWING IS AN EXAMPLE OF MODIFIING THE TO BY USING MODIFY OPTION 
CHANGE Ty TO INSERT A DEFECT ON A PARTICULAR DISK ADDRESS. 
IN THIS EXAMPLE, A STACKED DEFECT WILL BE ADDED TO THE LAST DEFECT; 


EXAMPLE 3) 


M1 
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MODIFY BY (O=WORDS, 1=INDEX, 2*CHANGE) (D) 1 ? 2<CR> 

CYLINDER ADDRESS (D) 598 ? <CR> - 

TRACK ADDRESS (D) 9 ? <CR> 

CURRENT TD, 

WORD@1 ( CYL) WORD@2 (CTRK)(SEC) WORD®3 WORDO4 WORDS WORDSG 
031126 (598.) 004777 ( 9.)(377) 118. 4891. 140000 140000 


TYPE <CR> TO INPUT (0=140000) DATA; 
TOD WORD@S (D) O ? 118<CR> 


TD WORD@4 (D) 0 ? 4891<CR> 
TD WORD@S (D) O ? 108<CR> 
TO WORD@6 (D) O ? <CR> 


CHANGED TO, 
WORD@1 ( CYL) WORD@2 (CTRK)(SEC) WORD@3 WORD@4 WORDOS WORDO6 
071126 (598.) 004777 ( 9.)(377) 118. 4891. 108. 140000 


DO YOU WANT TO MODIFY ANYMORE TD‘S (L) Y ? <CR> 


THE FOLLOWING IS AN EXAMPLE OF MODIFIING THE TD BY USING MODIFY OPTION 


S MODE), TO INSERT A DEFECT ON A PARTICULAR DISK ADDRESS, WHICH 


ALREADY HAS 4 DEFECTS IN THE TD. 
EXAMPLE 4) 


MODIFY BY (O=WORDS, 1=INDEX, 2=CHANGE) (D) 2 ? O<CR> 
CYLINDER ADDRESS (D) 598 ? O<CR> 
TRACK ADDRESS (D) 9 ? 6<CR> 


CURRENT TO, 
WORD@1 ( CYL) WORD@2 (CTRK)(SEC) WORD®3 WORD@4 WORDOS WORDOG 
031126 € 0.) 004777 ( 6.)€377) 11069. 1425. 2641. 329. 


SECTOR ADDRESS (D) ? 28<CR> 
WORD IN SECTOR (D) ? CANY VALID NUMBER)<CR> 


WARNING #@ CYL 6. HAS 4 DEFECTS IN TRACK DESCRIPTOR! 
BAD SECTOR. F FILE WILL BE UPDATED 


DO YOU WANT TO MODIFY ANYMORE TD’S (L) Y ? <CR> 


THE FOLLOWING IS AN EXAMPLE OF MODIFIING THE TD BY USING MODIFY OPTION 
NDEX MODE), TO INSERT A DEFECT ON A PARTICULAR DISK ADDRESS, WHICH 
ALREADY HAS 4 DEFECTS IN THE TD. 


SEQ 0012 


Ni 
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EXAMPLE 5) 


oe 


MODIFY BY (O=WORDS, 1=INDEX, 2=CHANGE) (D) O ? 1<CR> 
CYLINDER ADDRESS (0) O ? <CR> 
TRACK ADDRESS (D) 6 ? <CR> 


CURRENT TD, 
WORD@1 ( CYL) WORD#2 CTRK)(SEC) WORD@3 WORD@4 WORDS WORDHE 
031126 (€ 0.) 004777 (€ 6.)(€377) 11069. 1425. 2641. 329. 


WORDS FROM INDEX (D) ? CANY VALID NUMBER)<CR> 


WARNING ## CYL 0., TRK 6. HAS 4 DEFECTS IN TRACK DESCRIPTOR! 
INPUT DATA REJECTED 


DO YOU WANT TO MODIFY ANYMORE TD'S (L) Y ? N<CR> 


THE FOLLOWING ARE THE DEFINITIONS FOR THE TD WORDS 1 THRU 6; 
WHERE, ‘WORD@1' IS THE 1ST WORD OF THE TD CIN OCTAL), 


BITS 0-9 CYLINDER ADDR 

BITS 10-11 ALWAYS 0 

BIT 12 ALWAYS 1 

BIT 13 : TO CIDENTIFIES THIS IS TD RECORD) 
BIT 14 TO MOVED 

BIT 15 HDR O MOVED 


‘CYL’ IS THE CYLINDER ADDR CIN DECIMAL) OF THE TD, 
WHICH WAS EXTRACTED FROM WORD 1, 


‘WORD@2' IS THE 2ND WORD OF THE TD CIN OCTAL), 


BITS 0-7 SECTOR ADDR (ALWAYS ONES) 
BITS 8-15 TRACK ADOR 


‘TRK' IS THE TRACK ADDR CIN DECIMAL) OF THE TD, 
WHICH WAS EXTRACTED FROM WORD 2, 

‘SEC’ IS THE SECTOR ADOR CIN OCTAL) OF THE TD, 
WHICH WAS EXTRACTED FROM WORD 2, 


*WORD@3' IS THE 3RD WORD OF THE TD CIN DECIMAL «), 

‘WORD@4' IS THE 4TH WORD OF THE TD CIN DECIMAL #), 

‘WORD@S' IS THE STH WORD OF THE TD CIN DECIMAL +#), 

*‘WORD@6' IS THE 6TH WORD OF THE TD CIN DECIMAL «#), 
SKIP DEFECT DISPLACEMENTS. 


* DISPLACEMENT IS A ‘NULL’, THE OUTPUT WILL BE 140000 


THE FOLLOWING ARE THE DEFINITIONS FOR THE HEADER WORDS 1 THRU 6; 


SEQ 0013 


Be 
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WHERE, 'WORD®1' IS THE 1ST WORD OF THE HDR (IN OCTAL), 


BITS O-il1 CYLINDER ADOR 
BIT 12 FMT BIT 1°16 BIT FMT 
0-18 BIT FMT 
BIT 13 ALWAYS 0 
BIT 14-15 USED FOR BAD SECTOR FLAGGING 
11*GO000 


‘CyL' IS THE CYLINDER ADOR CIN DECIMAL) Ur THE TD, 
WHICH WAS EXTRACTED FROM WORD 1, 


‘WORD@2' IS THE 2ND WORD OF THE TD CIN OCTAL), 


BITS 0-7 SECTOR ADDR (0-49. ) 
BITS 8-15 TRACK ADOR (0-31.) 


‘TRK' IS THE TRACK ADOR CIN DECIMAL) OF THE TD, 
WHICH WAS EXTRACTED FROM 

‘SEC’ IS THE SECTOR ADOR (IN OCTAL) OF THE TD, 
WHICH WAS EXTRACTED FROM WORD 2, 


WORD@3' IS THE SRD WORD OF THE TO (CIN DECIMAL ¢), 


WORD@6' IS THE 6TH WORD OF THE TD (IN DECIMAL «), 
SKIP DEFECT DISPLACEMENTS. 
e | A eal DISPLACEMENT IS A ‘NULL’, THE OUTPUT WILL BE 140000 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HAROWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 


s 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
° FICTIONAL DEVICE, THE XVY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT = Sogn nt My ny ye IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT _ VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (0) ? 8<CR> 
UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


SEQ 0014 


Le 
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UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ?_ 1<CR> 
Q-FACTOR (0) 1? O<CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
Q-FACTOR (0) 0 2? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5S 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 2? <CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? S<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADORESS (0) 
SUB-DEVICE @ (0) ? 
Q-FACTOR (0) 1 ? 


ee ae 
7<CR> 
<CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 


NON-DEFAULT RESPONSE IS GIVEN. 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE 
NOT VERY EFFICIENT. 


EXAMPLE, THE 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE 


BE CAREFUL WHEN SPECIFYING 


HE HARDWARE PARAMETERS 
PROCEDURE SHOWN IS 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
SM eae THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (0) ? 8<CR> 


UNIT 1 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 


a ee ee ee 


SEQ 0015 


D2 
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SUB-DEVICE @ (0) ? 2-S5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE @ (0) ? 6,7<CR> 

Q-FACTOR (0) 0 ? 1<CR> 
AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO < DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
WAS SPECIFIED ONLY ONCE IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 


T 
“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 


» THE INCREMENT WOUL ADORE MUS 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY a ot ae ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


@ UNITS (0) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE @ (0) ?  0-7<CR> 

Q-FACTOR €0) c¢) ? 0,1.0....21.1<CR> 
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
2.7 QUICK START-UP PROCEDURE (XXDP-+) 
TO START-UP THIS PROGRAM: 

1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
Is A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4, TYPE “START” 

S. ANSWER THE “CHANGE HW” QUESTION WITH “Y" 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7, ANSWER THE “CHANGE SW” QUESTION WITH “N” 


SEQ 0016 


E2 
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WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 


3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXx 
ERROR MESSAGE 


«WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 


UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 

THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR hoe 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAY 

PRINTED UNLESS THE “IER”, “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 


THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL E 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 
SESECEESEEEESEEESESEEESSEESEEEEEEEEEEEEEEESEDEEEEDEREDEEEDEDOEEEEEDESEDE 


- TO ADDRESS INCORRECT - 


THIS MESSAGE IS GENERATED WHEN A TRACK DESCRIPTOR IS READ AND FOUND 
TO CONTAIN THE WRONG ADDRESS INFORMATION. 


SOOOEEEEEEEEEEEEOOEEEEEEEEOEEEEEEEEEEDEOEEOOO06666600000060000000000008 
- TO FORMAT INCORRECT - 


THIS MESSAGE IS GENERATED WHEN A TRACK DESCRIPTOR IS FOUND 
TO CONTAIN AN INCORRECT FORMAT. 


$$66666666666666666466666666666666666666666646600606666006666606606606806 


- COMPOSITE ERROR SET - 


SEQ 0017 


Fe 
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THIS MESSAGE IS GENERATED WHEN A COMPOSITE ERRROR IS DETECTED. 
COMPOSITE ERROR (RPDS:BIT 14) SETS WHEN A HARDWARE MALFUNCTION 

HAS BEEN DETECTED. 
RERAAEEEESEREEESEREAREEESEEEREEAEEREEEDEAREEEEEEEEEEREEEEAEDEREEEDEEDES 
- DRIVE HUNG, DRY NOT SET IN TIME - 

THIS MESSAGE IS GENERATED WHEN RPOS:DRY (BIT 07) 

DOES NOT SET WITHIN A GIVEN TIME PERIOD, IT INDICATES THAT 

"GO" CRPCS1:BIT 0) DID NOT RESET IN TIME, THAT THE DRIVE IS HUNG. 
SEEAESSAEEEESEREEEEESEEEEESEDEEEEEEEEERESEEEROREEEEEREREEEEEEDEEAEEEEES 
- DRIVE WRITE LOCKED - 


THIS MESSAGE IS GENERATED WHEN THE WRITE LOCK BIT CRPDS:BIT 11) 
IS FOUND TO BE SET WHEN A WRITE OPERATION IS ABOUT TO BE PEFORMED. 


SEREESEEOERESESESERESERESESEEEEEEESEEERESESEEREEEDEEEDEEEDEREEEEEREREEEEE 
- DRIVE OFFLINE - 


THIS MESSAGE IS GENERATED WHEN MEDIUM-ON-LINE (RPDS:BIT12) 
IS FOUND TO BE RESET. 


SHEEEEEEESESEEESEEESESESEEEEEEEEEEEEEEREEEEEDEEEEEEEEEEEEEEEEOEEEDESEES 
- UNEXPECTED ATTN OCCURRED - 


THIS MESSAGE IS GENERATED ANYTIME AN “ATTENTION” (RPDS: BIT 15) 
IS RECEIVED WHEN IT IS NOT EXPECTED. 


SESEEEESEEESEEEEEEEESEESESEESEESEEEEEEESEEESEDEEEEEEEREEEEDEEEREDEEEEEE 
- WRITE CHECK ERROR SET - 

THIS wag Mod GENERATED WHEN A WRITE CHECK OPERATION IS 

PERF ORMED SEQUENT TO A FORMAT OPERATION, AND THE 

WRITE CHECK ERROR (RPCS2:BIT 14) IS FOUND TO BE ASSERTED. 
SOOSCESSEEESEESEEESESEEEEEEEEEESEEEEEEEEEEEESEEEDEEEEEDEEDEDEEDEREDEDES 
- FORMAT VERIFY ERROR - 

THIS MESSAGE IS GENERATED WHEN A VERIFY OPERATION FAILS TO 

RECEIVE THE SAME DATA FROM THE DRIVE AS THE COMPUTED EXPECTED 

DATA, RESULTING IN A DATA MISCOMPARE ERROR. 
SEOEEAESEEESSESESOESEEESEEEESEEEESEESEEESEEEESERESEOEEEDEDEDEEERDEEEDEE 
- ORY DION’ T RESET WHEN EXPECTED - 

THIS MESSAGE IS GENERATED WHEN DRIVE READY (RPDS:BIT 07) 


FAILS TO RESET AFTER A COMMAND HAS BEEN ISSUED, INDICATING 
THAT THE COMMAND MAY HAVE NOT BEEN EXECUTED BY THE DRIVE. 


SEQ 0018 


G2 

| and 
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PREREREEEEAAEREREREEEESEEREFEREDEEEAAEEREEEEEEREREEEEEDEEERERE EEE OEEES 
- TRANSFER ERROR SET - 


THIS MESSAGE IS GENERATED WHEN A CONTROLLER ERROR “TRANSFER ERROR” 
HAS BEEN DETECTED (RPCS1:BIT 14). 


SEREESEREEESEEEEESEDEEOERESEAEEEEEEEREEEEESEEEREDOEEEEEEREDEDEDEREEE EERE 
- SPECIAL CONDITION SET - 


THIS MESSAGE IS GENERATED WHEN SPECIAL CONDITION (RPCS1: BIT 15) 

IS FOUND TO BE ASSERTED WHEN IT IS NOT EXPECTED. SPECIAL CONDITION 
CAN BE SET BY ANY DRIVE ON THE STRING AS WELL AS THE UNIT UNDER 
TEST. IT CAN INDICATE A SUB-SYSTEM FAILURE OR A FAILURE OF THE 
UNIT UNDER TEST. 


SEORSEEEEESESEESESEESSOEEEEEEREEEEEEEREEEEEEESEEEEESEOEEEEDEEEEDEEREDEDE 
- RANDOM HEADER ERRORS -CAN'T RESOLVE DEFECTS- - 

THIS MESSAGE IS GENERATED WHEN TOO MANY RANDOM HEADER ERRORS ARE 
DETECTED. IT INDICATES THE PRESENCE OF NOISE OR A MARGINALLY 

Soe Gaston’ RPO7 WHICH MUST BE REPAIRED BEFORE THE SCAN OPERATION 


SODEEEEEEEESESEREEEESEEEESEESEESEEESEEESEEDDESEEESEEDERERESEREREDERESES 
- COULD NOT SUPPLY READABLE TD THRU RELOCATION - 

THIS MESSAGE IS GENERATED WHEN THE SCANNER MODE OF OPERATION IS 

UNABLE TO RESTORE A_TRACK DESCRIPTOR RECORD THROUGH RELOCATION OF THAT 
RECORD. THE TRACK IN QUESTION MUST THEN BE RETIRED VIA THE OPERATING 
SYSTEM, OR THE HDA MUST BE REPLACED. 


COSEEEOSEEEEEEEAESESESEEEEEESEEESEEESSEEEEEEEEEEEEDEEEEEEEEDEEEEEEEDEEES 
- UNRECOVERABLE ERROR DURING PACK SCAN - 

THIS MESSAGE IS GENERATED WHEN, DURING A PACK SCAN OPERATION, 

TOO MANY NON-DATA ERRORS ARE DETECTED DURING THE WRITE DATA OR 

WRITE CHECK DATA OPERATIONS. EXCESSIVE FAILURES OF THIS TYPE USUALLY 
INDICATE THE PRESENCE OF BROKEN HARDWARE . 
SOOOSEESSEEEESSEEEEEDEEEEEESEEEOEEESSEOEEEEEEEEEEEEEHEEEDAEEEEEEDEEOEEEE 
- RANDOM WRT CHK ERRORS -CAN'T RESOLVE DEFECTS- - 

THIS MESSAGE IS GENERATED WHEN TOO MANY RANDOM WRITE CHECK 

ERRORS ARE DETECTED. IT INDICATES THE PRESENCE OF NOISE OR 


A MARGINALLY OPERATIONAL RPO7 WHICH MUST BE REPAIRED BEFORE THE 
SCAN OPERATION CAN PROCEED. 


SESESEEEEESESEASESESSESEESEESEESEOESESEEESEEESESEEEEEEEEEEHESESEEESEEHEDDEDEDE 


- NON-EXISTENT DRIVE - 


He 
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THIS MESSAGE IS GENERATED WHEN A USER SELECTS A DRIVE 
WHICH CAUSES NON EXISTENT DRIVE (RPCS2:BIT 11) TO SET. 


CREO AAEEEEEREESEEEREEEEDEEEEEEEAEEEEEEESESEEEAEREEEEDREREEEEDEEEEREEES 
- DRIVE NOT AN RPO7 - 

THIS MESSAGE IS GENERATED WHEN THE DRIVE TYPE REGISTER (RPOT) 

DOESN’ T CONTAIN THE CORRECT IDENTIFICATION, INDICATING THAT A 

DRIVE OTHER THAN A RPO7 HAS BEEN SELECTED. 


SARESSHSSESASESSESAAEASASSEAASEHELEEEASEESESEEASEHAEAEOEEESEREEEEEEEEESES 


3.3 SPECIFIC WARNING MESSAGES 
SESEAEEESESEEEEEAESEEEESESOEEEEEREEESSEEEEESESEEEERESEEREEEEEEEEEOREEEE 


- WARNING #« CYL XXX., TRK YY. HAS 4 DEFECTS IN TRACK DESCRIPTOR - - 
- INPUT DATA REJECTED 


THIS MESSAGE IS GENERATED WHEN A USER ATTEMPTS TO MANUALLY CUSING THE 
‘INDEX’ OPTION) ADD A DEFECT SKIP TO A TRACK DESCRIPTOR RECORD WHICH 
ALREADY HAS 4 DEFECTS. 


ELC ERMARAHSKAELEHALAARLRAEAREAEHEKOCEHREHAEEREARABAEAKREARERK KASH AHHH 


~ WARNING #e CYL XXX., TRK YY. HAS 4 DEFECTS IN TRACK DESCRIPTOR - ° 
BAD SECTOR FILE WILL BE UPDATED 


THIS MESSAGE IS GENERATED WHEN A USER ATTEMPTS TO MANUALLY CUSING THE 
‘WORDS’ OPTION) ADO A DEFECT SKIP TO A TRACK DESCRIPTOR RECORD WHICH 
eH ry pa THIS DEFECT IS THEN LOGGED IN THE BAD SECTOR 


BHD ARERASHERMRELERERHRAGKAAPHEEAOEELRAKHAAARMHRSEEKORAAHAREHE DAERAH 


- WARNING ¢¢ CYL XXX., TRK YY. HAS 4 DEFECTS IN TRACK DESCRIPTOR - 
- ANOTHER DEFECT WAS FOUND XXXXX. WORDS FROM INDEX - 
° BAD SECTOR FILE WILL BE UPDATED - 


THIS MESSAGE IS GENERATED WHEN THE SCANNER ATTEMPTS TO ADD A DEFECT 
SKIP TO A TRACK DESCRIPTOR RECORD WHICH ALREADY HAS 4 DEFECTS. 

WHERE, XXXXX IS THE NUMBER OF WORDS FROM THE INDEX PULSE TO THE POINT 
OF THE DEFECT JUST FOUND. (DECIMAL) THIS DEFECT IS THEN LOGGED IN 

THE BAD SECTOR FILE AS A DEFECT. 
SESESESEEESSEEEESESSESEEEEEEEEESEESEEEEESEEEEESEEEEEEEDEDOEESESEEEEEEEE 
- WARNING ee CYL XXX., TRK YY. HAS 4 DEFECTS IN TRACK DESCRIPTOR - 

THIS MESSAGE IS GENERATED WHEN A TD IS DETECTED WITH FOUR DEFECTS IN 
IT'S RECORD. WHERE, XXX IS THE CYLINDER ADDRESS AND YY IS THE TRACK 
ADDRESS OF THE TD JUST READ. (DECIMAL) 


BEEDESHELDAPEERERE SE? GESEREDROEHKEKOEEHAEEEAEAHEEEMEDEEREEARCEHHERAHHSHEKE KOH EH 


a 


SEQ 0020 


Ie 
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- WARNING #¢ BAD SECTOR FILE BUFFER IS FULL, NO MORE ENTRIES ALLOWED - 


THIS MESSAGE IS GENERATED WHEN AN ATTEMPT IS MADE TO ADD A BAD SPOT 
TO A FULL BAD SECTOR FILE (DEC144)., 


SORAEEAERASEEEEESESEEEEESEEEEEEEREREEEEEEEEEEREDREESEEEEDEEEEDEEEREEEEES 
- WARNING #¢ BAD SECTOR FILE DATA IS CORRUPT, IT WILL BE INITIALIZED - 
THIS MESSAGE IS GENERATED WHEN AN ATTEMPT TO READ THE BAD oe FILE 
TRACK, RESULTS IN AN UNRECOVERABLE READ ERROR OR CORRUPT DATA IS 
DETECTED IN THE CONTENTS OF THE FILE. THE BSF WILL BE INITIALiZED ON 
COMPLETETION OF THE TEST. 
SROAEEEEEERESEEEEEEEEEOEEESEEEEREDEEDEEEEEEEEEEEEEEEEEEEEEEE DED OEEEEEEES 
- WARNING #¢ THERE ARE XxX. TRACK(S) WITH 4 DEFECTS - 

THIS MESSAGE IS GENERATED AT THE END OF A a TO REMINDER THE USER 
THAT SOME NUMBER OF TRACKS HAD FOUR DEFECTS. WHERE, XX IS THE NUMBER 
OF TRACKS HAVING FOUR DEFECTS. (DECIMAL) 


SHEKAEEHEEEHRARSEAEHEEEEHHAEEEDERHAEEEREEREAMAEHERSEEREAREAHEHEDH AAA HEEES 


4.0 PERFORMANCE AND PROGRESS REPORTS 
AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE PROGRAM WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OF TEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 
5.0 DEVICE INFORMATION TABLES 
THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE TEST-DEVICE 
PARAMETERS. THE STRUCTURE OF THIS TABLE IS IDENTICAL TO THE STRUCTURE 
OF THE HARDWARE P-TABLES, AND IS USED AS A “TEMPLATE” FOR BUILDING THE 
P-TABLES. 
WORD 176700 ;RPCS1 BASE REGISTER ADDRESS 
WORD 254 sVECTOR ADDRESS 


“WORD 240 38R LEVEL 5S DEVICE 
"WORD O sORIVE NUMBER 


6.0 PROGRAM PROCESSES 


6.1 FORMAT PROCESS 

A FORMAT PROCESS WILL CONSIST OF THE FOLLOWING PROGRAM OPERATIONS; 
1. READ TRACK DESCRIPTOR 
2. FORMAT TRACK (WRITE TRACK HEADERS & DATA ACCORDING TO THE 


SEQ 0021 


L 


Je 
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eet INFO IN THE TRACK DESCRIPTOR € MFG BAD SECTOR FILE 


3. VERIFY TRACK FORMAT, WITH WRITE CHECK CIF ENABLED) 
4. CREATECUSR)-RESTORECMFG) DEC STD 144 BAD SECTOR FILE. 


6.2 VERIFY PROCESS 
A VERIFY PROCESS WILL CONSIST OF THE FOLLOWING PROGRAM OPERATIONS; 
1. READ TRACK DESCRIPTOR 
2. CONSTRUCT MAP OF EXPECTED FORMAT IN MEMORY BASED ON 
CONTENTS OF TRACK DESCRIPTOR JUST READ € THE MFG BAD 
SECTOR FILE INFO. 


3. READ HEADERS (COMMAND MODIFIER BIT=1) AND CHECK AGAINST 
MEMORY MAP. 


4. CREATECUSR)-RESTORECMFG) DEC STO 144 BAD SECTOR FILE. 


6.3 SCAN PROCESS 
A SCAN PROCESS WILL CONSIST OF THE FOLLOWING PROGRAM OPERATIONS; 


1. SCAN PACK TRACK BY TRACK BASIS, LOOKING FOR DEFECTS IN THE 
TO, HEADER AND DATA PORTIONS OF EACH SECTOR. 


A. READ TRACK Oy tte 
8. READ HEADERS (COMMAND MODIFIER BIT=1) 
C. WRITE DATA € VERIFY WITH WRITE CHECK COMMAND 
NOTE: THE SCAN PROCESS TAKES APPROX. 135 MINUTES PER DRIVE. 


2. ANY PERSISTENT ERRORS WILL CAUSE THE TRACK DESCRIPTOR TO 
BE READ AND APPENDED IN MEMORY. 


3. WRITE TRACK DESCRIPTOR CACCORDING TO THE BUFFER CREATED BY 
THE PACK SCAN OPERATION. IF ENABLED) 


4. FORMAT TRACK CWRITE TRACK HEADERS € DATA ACCORDING TO THE 
oat. INFO IN THE TRACK DESCRIPTOR € MFG BAD SECTOR FILE 

S. VERIFY TRACK FORMAT, WITH WRITE CHECK 

6. CREATECUSR)-RESTOREC(MFG) DEC STD 144 BAD SECTOR FILE. 


6.4 MODIFY PROCESS 
A MODIFY PROCESS WILL CONSIST OF THE FOLLOWING PROGRAM OPERATIONS; 
1. READ TRACK DESCRIPTOR 


SEQ 0022 


Ke 
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MODIFY TRACK DESCRIPTOR 

WRITE TRACK DESCRIPTOR 

FORMAT TRACK (WRITE TRACK HEADERS € DATA ACCORDING TO THE 
ALY INFO IN THE TRACK DESCRIPTOR € MFG BAD SECTOR FILE 
VERIFY TRACK FORMAT, WITH WRITE CHECK 


CREATECUSR)-RESTORECMFG) DEC STD 144 BAD SECTOR FILE. 


SEQ 0023 
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-REM @ 


VERSION 
1 . 


VERSION 
1. 


(CZRJK-A-0) 


THIS VERSION IS THE STARTING POINT FOR CX DIAGNOSTIC SUPPORT OF 
THE RPO7 DISK DRIVE. 


(CZRUK -B-0) 


CHANGED THE ROUTINES THAT DETERMINE WHEN TO MOVE THE TRACK 
DESCRIPTOR AND/OR HEADER 0. THE CHANGE WAS NEEDED BECAUSE OF A 
PARAMETER LIMIT DIFFERENCE BETWEEN THIS PROGRAM AND THE 
MANUFACTURING SCANNER PROGRAM, 


CHANGED ROUTINES ‘TDSCAN', ‘HDSCAN' AND ‘DASCAN’ TO DO 10. 
ITERATIONS AFTER DETECTING A MEDIA RELATED ERROR DURING SCAN 


CHANGED THE HEADER SCAN ROUTINE ‘HDSCAN’, TO LOOK FOR ‘OPI’ 
ERRORS DURING SCAN MODE. 


CORRECTED A SHIFT RIGHT PROBLEM IN ROUTINE ‘TOLER’. 


MODIFIED THE PROGRAM TO FORMAT THE MF BIT CORRECTLY INTO A 
HEADER THAT HAS BEEN FOUND IN THE MFG BAD SECTOR FILE. 


MODIFIED THE PROGRAM TO ALLOW THE USER TO FORMAT, SCAN OR 
MODIFY TO‘'S ON THE FE CYLINDER, WITHOUT HAVING TO CHANGE THE 


MIN/MAX CYLINDER LIMITS IN THE DRIVE PARAMETERS. 


SEQ 0024 


CZRJIKBO 
HISTORY 


Me 
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s*LAST REVISION 25-MAY-83 


.TITLE CZRUKBO RPO7 FMTR/SCANNER 
-SBTTL PROGRAM HEADER 
000000 .-ENABL AMA,ABS 
002000 . 5 2000 
3+ 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
3; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
Racal 
002000 LSNAME: : ;DIAGNOSTIC NAME 
002000 103 ASCII /C/ 
002001 132 ASCII /2Z/ 
002002 122 ASCII /R/ 
002003 112 ASCII /J/ 
002004 113 -ASCII /K/ 
002005 000 .BYTE O 
002006 000 -BYTE O 
002007 000 .BYTE O 
002010 LSREV:: sREVISION LEVEL 
002010 102 ASCII /6/ 
002011 L$DEPO: 30 
002011 060 ASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000001 .WORD TSPTHV 
002014 . LSTIML: sLONGEST TEST TIME 
002014 001000 -WORD 1000 
002016 LSHPCP:: sPQINTER TO H.W. QUES. 
002016 031132 L$HARD , 
002020 L$SPCP:: sPOINTER TO S.W. QUES. 
002020 000000 re) 
002022 LSHPTP sPTR. TO DEF. H.W. PTABLE 
002022 002130 L$Hw 
002024 LSSPTP:: sPTR. TO S.W. PTABLE 
002024 000000 -WORD O 
L$LADP: - sDIAG. END ADDRESS 
120100 -WORD LS&LAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 -WORD O 
002032 LSCo:: 
002032 000000 -WORD O 
LSOTYP:: sDIAGNOSTIC TYPE 
002034 000000 -WORD O 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 . WORD 
002040 LSDOTP:: 3PTR. TO DISPATCH TABLE 
002040 002124 ‘ LSDISPATCH 
002042 LS$PRIO:: sDIAGNOSTIC RUN PRIORITY 
002042 000000 ‘ 
002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 ‘ 
002046 LSEXP1:: sEXPANSION WORD 


SEQ 0025 


Ne 
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200 


002622 
104035 
000000 
026516 
027552 
027550 
026510 
000000 
000000 
000000 


. WORD 
LSMREV:: 

.BYTE 

BYTE 
LSEF:: 

. WORD 

. WORD 
L$SPC:: 

. WORD 
LSDEVP:: 

. WORD 
LSREPP:: 

. WORD 
LSEXP4:: 

. WORD 
LSEXPS:: 

. WORD 
L$AUT:: 

. WORD 
L$DUT:: 

. WORD 
L$LUN:: 

. WORD 
LSDESP:: 

. WORD 
L$LOAD: : 

EMT 
LSETP:: 

. WORD 
LSICP:: 
LSCCP:: 


. WORD 
LSACP:: 

WORD 
LSPRT:: 


LSTEST:: 
WORD 
LSOLY:: 
WORD 


LSHIME::— 


te) 


3SVC REV AND EDIT # 


CSREVISION 


CsEDIT 


.¢) 


L$DVTYP 


oeoe6e70e6s ®@ 


L$DESC 
ESLOAD 
.¢) 
L$INIT 
LSCLEAN 
L$AUTO 
L$PROT 
0 

.e) 

0 


sDIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
sPTR. TO REPORT CODE 


sPTR. TO ADD UNIT CODE 

sPTR. TO OROP UNIT CODE 

3LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
sGENERATE SPECIAL AUTOLOAD EMT 
sPOINTER TO ERRTBL 

sPTR. TO INIT CODE 

sPTR. TO CLEAN-UP CODE 

sPTR. TO AUTO CODE 

3PTR. TO PROTECT TABLE 

;TEST NUMBER 

;DELAY COUNT 

;PTR. TO HIGH MEM 


SEQ 0026 


we 
7 ey 
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DISPATCH TABLE 


-SBTTL DISPATCH TABLE 
7°? 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
he 


Out Veintue 


002122 000001 . WORD 
002124 LSDOISPATCH:: 
. WORD 


002124 030074 T1 


o 


CZRJKBO 
DEFAULT 


a = 

) 
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HARDWARE P - TABLE 


-SBTTL DEFAULT HARDWARE P-TABLE 


tee 

s THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
s THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
s IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
; AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 
ge 


002126 000004 -WORD L10000-L8HW/2 

002130 LSHW:: 

002130 OFPTBL:: 

002130 176700 . WORD 176700 sRPCS1 BASE REGISTER ADDRESS 
002132 000254 -WORD 254 sVECTOR ADORESS 

002134 000240 «WORD 240 ;BR LEVEL 5 DEVICE 

002136 000000 -WORD O sORIVE NUMBER 


002140 L10000: 


D4 
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SOFTWARE P-TABLE 


OOBINDUWS whe 


10 002140 000000 
002142 
002142 

11 


19 
20 002142 


-SBTTL SOFTWARE P-TABLE 


gee 

3 THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 

3 PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
+ SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
3; AT RUN TIME. 

gee 


» WORD L10001 -L$SwW/2 
LSSW:: 
SFPTBL:: 


L10001: 


SEQ 0029 


no 
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-SBTTL GLOBAL EQUATES SECTION 


3¢¢ 


; THE GLOBAL EQUATES SECTION — PROGRAM EQUATES THAT 
s ARE USED IN MORE THAN ONE TEST 


5 

; BIT DEFINITIONS 
H 

BIT15== 100000 


BIT14*= 40000 
BIT13== 20000 
BIT12*= 10000 
BIT11=*= 4000 
BIT10*= 2000 
BITO9== 1000 
BITOS== 400 
BITO7== 200 
BITO6*= 100 
BITOS== 40 
BITO4*= 20 
BITO3== 10 
BITO2== 4 
BITOis= 2 
BITOO== 1 


3 
s EVENT FLAG DEFINITIONS 
s EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


é 

EF .START== 

EF .RESTART== 
EF .CONTINUE == 
EF .NEWe= 

EF .PWRe=e 

$ 


32. 
31. 
30. 
29. 
28. 


4 
s PRIORITY LEVEL DEFINITIONS 


é 

PRIO7*= 340 
PRIO6*= 300 
PRIOS=** 240 
PRIO4*= 200 
PRIO3S*= 140 
PRIO2=*= 100 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 
A NEW PASS HAS BEEN STARTED 
A POWER-FAIL/POWER-UP OCC 


URRED 


SEQ 0030 


t. 
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GLOBAL EQUATES SECTION 
000040 


PRIO1== 40 
PRIOO== 0 

; 

sOPERATOR FLAG BITS 
‘ 

EVL== 4 
LOT== 10 
ADR== 20 
I0U== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


SEQ 0031 


G4 
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RHXK REGISTERS 


OBO U SWhe 


-SBTTL RHXX REGISTERS 
sCONTROL AND STATUS REGISTER 1 C(RPCS1) 


INTEN = 100 s INTERRUPT ENABLE (BIT #6) 

RDY *= 200 sREADY (BIT @ 7) 

A16 == 400 sHIGH ORDER BUS ADDRESS BIT (BIT @ 8) 
A17 == 1000 sHIGH ORDER BUS ADDRESS BIT (BIT @ 9) 
PSEL == 2000 sPORT SELECT (BIT @ 10) 

MCPE == 20000 sMASSBUS PARITY ERROR (BIT @ 13) 

TRE *= 40000 s TRANSFER ERROR (BIT @ 14) 

sc *= 100000 sSPECIAL CONDITION (BIT @ 15) 


sWORD COUNT REGISTER (RPWC) 
sEACH BIT IS CALLED BY BIT NUMBER 


sBUS ADDRESS REGISTER (RPBA) 
sEACH BIT IS CALLED BY BIT NUMBER 


sCONTROL AND STATUS REGISTER 2 (RPCS2) 


US1 es ji sUNIT SELECT (BIT #0) 

uSs2 ee 2 sUNIT SELECT (BIT 01) 

US4 ss 4 sUNIT SELECT (BIT 02) 

BAI *= 10 sBUS ADDRESS INCREMENT INHIBIT (BIT 03) 
PAT s= 20 sMASSBUS PARITY INHIBIT (BIT 04) 
CLR s= 40 sCLEAR (BIT #5) 

IR ** 100 s INPUT READY (BIT #6) 

OR s= 200 sOUTPUT READY (BIT #7) 

MPE =s= 400 sMASSBUS PARITY ERROR (BIT 08) 
MXF ** 1000 sMISSED TRANSFER ERROR (BIT 09) 
PGE == 2000 sPROGRAM ERROR (BIT #10) 

NEM s= 4000 sNON EXISTENT MEMORY (BIT #11) 
NED *= 10000 sNON EXISTENT DRIVE (BIT #12) 
UPE *= 20000 sUNIBUS PARITY ERROR 

WCE *= 40000 sWRITE CHECK ERROR (BIT 014) 
OLT *= 100000 sDATA LATE (BIT #15) 


sDATA BUFFER REGISTER (RPDB) 
sEACH BIT IS DEFINED BY BIT NUMBER 


-SBTTL RPO7 REGISTERS 
sCONTROL AND STATUS 1 (#00) 


Go es 3 :GO BIT (BIT #0) 

Fi —- FUNCTION CODE BIT ¢1 

F2 oo 3 SFUNCTION CODE BIT #2 

FS 2= 10 IFUNCTION CODE BIT @3 

Fa *= 20 FUNCTION CODE BIT 04 

FS == 40 FUNCTION CODE BIT @5 

OVA —Ss_ #& = 4000 }DEVICE AVAILABLE (BIT #11) 


eS ES OS 
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100000 


H4 


sORIVE STATUS REGISTER (RPDS <#01>) 


OM as 
EWN -_ 
TLEV es 
vv =. 
DRY se 
OPR a: 
PGM -_ 
LBT os 
WRL ss 
MOL =. 
PIP = 
ERR ee 
ATA ss 


ILF we 
ILR ss 
RMR = 
PAR ee 
FER ee 
WCF =. 
ECH .. 
HCE o. 
HCRC ss 
AOE ee 
TAE se 
WLE a 
OTE = 
OPI os 
UNS se 
OCK as 


1 
2 


sOFFSET MODE (BIT #0) 

sEARLY WARNING (BIT #1) 
sINTERLEAVING AVAILABLE (BIT #2) 
sVOLUME VALID (BIT #6) 

sDATA READY (BIT 07) 

sORIVE PRESENT (BIT 06) 
sPROGRAMABLE (BIT 09) 

sLAST BLOCK TRANSFERRED (BIT #10) 
sWRITE LOCKED (BIT #11) 

sMEDIUM ON LINE (BIT 012) 
sPOSITIONER IN PROGRESS (BIT #13) 
sCOMPOSITE ERROR (BIT #14) 
sATTENTION ACTIVE (BIT 015) 


sILLEGAL FUNCTION (BIT #0) 
St REGISTER (BIT #1) 
‘ 


GISTER MODIFICATION REFUSED (BIT #2) 


sPARITY ERROR (BIT @3) 
sFORMAT ERROR (BIT #4) 
sWRITE CLOCK FAIL (BIT #5) 
sECC HARD ERROR (BIT 


Y 
sORIVE TIMING ERROR (BIT 12) 
sOPERATION INCOMPLETE (BIT #13) 
sORIVE UNSAFE (BIT 014) 
sDATA CHECK ERROR (BIT #15) 


sDIAGNOSTIC MAINTAINABLILTY REGISTER (RPMR1 <@03>) 


100000 


sDIAGNOSTIC MODE (BIT #15) 


sATTENTION SUMMARY PSEUDO REGISTER (RPAS <@04>) 


ATO os 
AT1 se 
AT2 ss 
ATS se 
AT4 se 
ATS es 
AT6 se 
AT? se 


sOEVICE O (BIT 0) 
sDEVICE 1 (BIT 1) 
sOEVICE 2 (BIT #2) 
sOEVICE 3 (BIT #3) 
sOEVICE 4 (BIT 04) 
sOEVICE 5 (BIT #5) 
sDEVICE 6 (BIT 6) 
sDEVICE 7 (BIT #7) 


sDESIRED SECTOR/TRACK ADDRESS > Sl CRPDA <@05>) 
sEACH BIT IS CALLED BY BIT NUMBER 


SEQ 0033 


I = 
J 
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115 

116 

+H sORIVE TYPE REGISTER (RPDT <#06>) 

119 000001 ORTO ee 1 sORIVE TYPE NUMBER (BIT 90) 

120 000002 ORT1 ** 2 sORIVE TYPE NUMBER (BIT 61) 

121 000004 ORT2 2 4 sORIVE TYPE NUMBER (BIT #2) 

122 000010 ORTS == 10 sORIVE TYPE NUMBER (BIT 03) 

123 000020 ORT4 s= 20 sORIVE TYPE NUMBER (BIT 04) 

124 000040 ORTS s= 40 sORIVE TYPE NUMBER (BIT 05) 

125 000100 ORT6 *= 100 sORIVE TYPE NUMBER (BIT 46) 

126 ORT? *= 200 sORIVE he | NUMBER (BIT #7) 

127 000400 ORTS *= 400 sORIVE TYPE NUMBER (BIT 06) 

128 004000 ORQ == 4000 sORIVE REQUEST REQUIRED (BIT #11) 
129 020000 MOH *= 20000 sMOVING HEAD TYPE DRIVE (BIT 13) 
130 040000 TAP = 40000 sTAPE ORIVE (BIT 014) 

iss 100000 NBA == 100000 sNOT BLOCK ADDRESSED (BIT #15) 
133 

+74 sLOOK AHEAD REGISTER (RPLA <@07>) 

136 000100 Sci == 100 sSECTOR COUNT FIELD 1 (BIT 06) 
137 000200 sce *= 200 sSECTOR COUNT FIELD 2 (BIT #7) 
138 000400 sc4 == 400 sSECTOR COUNT FIELD 4 (BIT 06) 
139 001000 scé *= 1000 sSECTOR COUNT FIELD 8 (BIT #9) 
140 002000 SC16 ee sSECTOR COUNT FIELD 16 (BIT #10) 
141 004000 SC32 s= 4000 sSECTOR COUNT FIELD 32 (BIT 11) 
vas 010000 SC64 *= 10000 sSECTOR COUNT FIELD 64 (BIT #12) 
144 

145 sRPO7 SERIAL NUMBER REGISTER (RPSN <#10>) 

aor sEACH BIT IS CALLED BY BIT NUMBER 

148 

oH sRPO7 OFFSET REGISTER (RPOF <#11>) 

151 000200 OFFDIR == 200 sOFFSET OIRECTION (BIT #7) 

152 002000 HCI *= 2000 sHEADER COMPARE CODE INHIBIT (BIT #10) 
153 004000 EcI s= 4000 sERROR CORRECTION CODE INHIBIT (BIT #11) 
154 010000 FMT16 === 10000 116 BIT FORMAT (BIT #12) 

155 040000 MTO #* 40000 sMOVE TRACK DESCRIPTOR (BIT #14) 
$44 100000 CMOD *= 100000 sCOMMAND MODIFIER (BIT #15) 

158 

159 sRPO7 DESIRED CYLINDER ADDRESS (RPDC <@12>) 

et sEACH BIT IS CALLED BY BIT NUMBER 

162 

163 sRPO7 CURRENT CYLINDER ADDRESS ces <@13>) 

or ;EACH BIT IS CALLED BY BIT NUMBER 

166 

44 sRPO7 ERROR REGISTER 3 (RPERS <@15>) 

169 000002 SCF ss 2 sSYNC CLOCK FAT'.URE (BIT 01) 

170 000004 SBE ss 4 sSYNC BYTE ERROR (BIT 02) 

171 000010 DPE *= 10 sDATA PARITY ERROR (BIT @3) 


SEQ 0034 


SS A A ae 


ee a 


J5 
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RPO? REGISTERS 
172 000020 SOF = 20 sSERDES DATA FAILURE (BIT #4) 
173 000040 dCuU == 40 s0C UNSAFE (BIT 05) 
174 000100 IXU == 100 s INDEX UNSAFE (BIT #6) 
175 000200 OVC *= 200 sDEVICE CHECK (BIT 07) 
176 000400 PHF == 400 s8080 PROCESSOR HANDSHAKE FAILURE (BIT #8) 
177 001000 LCE == 1000 sLOSS OF CYLINDER ERROR (BIT 09) 
178 002000 LBC == 2000 sLOSS OF BIT CLOCK (BIT #10) 
179 020000 DSE == 20000 sDEFECT SKIP ERROR (BIT 13) 
180 040000 SKI == 40000 sSEEK INCOMPLETE (BIT #14) 
oon 100000 BSE *= 100000 sBAD SECTOR ERROR (BIT #15) 
1 
183 
184 sRPO7 ERROR REGISTER #2 (RPER2 <#14>) 
185 
186 000400 WRU «= 400 sWRITE READY UNSAFE (BIT 08) 
187 001000 WOR == 1000 sWRITE OVERRUN (BIT 09) 
188 002000 RWU1 == 2000 sREAD/WRITE UNSAFE #1 (BIT #10) 
189 004000 RWU2 == 4000 sREAD/WRITE UNSAFE #2 (BIT #11) 
196 010000 RWUS *= 10000 sREAD/WRITE UNSAFE @3 (BIT #12) 
191 020000 CPU == 20000 sCPU UNSAFE (BIT #13) 
192 040000 CPE == 40000 sCROM PARITY ERROR (BIT 414) 
cos 100000 PGE *= 100000 sPROGRAMING ERROR 
195 : 
196 sECC POSITION REGISTER C(RPEC1 <#16>) 
197 sEACH BIT IS DEFINED BY BIT NUMBER 
199 
200 sECC PATTERN REGISTER (RPEC2 <17>) 
eos sEACH BIT IS DEFINED BY BIT NUMBER 
oy -SBTTL RPO7 DRIVER COMMANDS 
205 000001 NOOP ee i sNO OPERATION 
206 000005 SEEK se 5 3 SEEK 
207 000007 RECAL ==* 7 sRECALIBRATE 
208 000011 ORVCLR == 11 sORIVE CLEAR 
209 000013 RELSE == 13 sRELEASE 
214 000021 READIN == 21 sREAD IN PRESET 
215 000031 SEARCH == 31 SEARCH 
216 000035 OIAG se 35 sOIAGNOSTIC MODE 
217 000051 wCKD == 51 sWRITE CHECK DATA 
218 000053 WCKHD == 53 sWRITE CHECK HEADER € DATA 
219 000061 WRTDAT == 61 sWRITE DATA 
220 000063 FMTRK == 63 sFORMAT TRACK 
221 000065 WRTTO == 65 sWRITE TRACK DESCRIPTOR 
222 000071 RODAT == 71 sREAD DATA 
223 000073 ROHD se 73 sREAD HEADER € DATA 
= 000075 ROTO es 75 sREAD TRACK DESCRIPTOR 
=F sSOME TRACK FORMAT EQUATES FOR 16 BIT MODE CIN WORDS) 
228 000100 G1 == 64, sSIZE OF GAP 1 
229 000010 TO ee 6. sSIZE OF TO 
230 000045 Ge es 37. sSIZE OF GAP 2 
231 000010 HORO es 6. sSIZE OF HEADER 0 


232 000010 HOR se 6, sSIZE OF HEADER 


| 
Eee ee eee) 
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RPO? DRIVER COMMANDS 


G3 s* 32. 
DATA == 256. 
G4 ss 37. 
OS == 108. 
MSEG == 18. 
NULL == 140000 


IK3 


sSIZE OF GAP 3 
sSIZE OF DATA FIELD 
sSIZE OF GAP 4 


sSIZE OF DEFECT SKIP 
sSIZE OF MINIMUM DATA SEGMENT 
sNULL DATA FOR TRACK DESCRIPTOR 


SEQ 0036 


a a a ee 
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GLOBAL DATA SECTION 


OOBsOU Swe 


L 


-SBTTL GLOBAL DATA SECTION 


see 


4 


; THE GLOBAL DATA a CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST 


BGNPAT ==, 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

ENDPAT ==, 

ANYWHR : WORD 
OPTION:: .WORD 

FORMT:: .WORD 

VRIFY:: .WORD 

SCANR:: .WORD 

MODTD:: .WORD 

LIST:: .WORD 
WRIFE2:: .WORD 
:: WORD 
ENWTTO:: .WORD 

Y:: .WORD 
LISHDR:: .WORD 
ORVPAR:: .WORD 
MINCYL:: .WORD 
MAXCYL:: .WORD 
YL:: .WORD 
MINTRK:: .WORD 
MAXTRK:: .WORD 
LSCYL:: .WORD 

LSTRK:; .WORD 
: .WORD 
ENDPTR:: .WORD 
ENDOTAB:: .WORD 
8 : .WORD 
OFFSET:: .WORD 
LASLOC:: .WORD 
BYTE 


INTLEV:: .BYTE 
SAMSEC:: .BYTE 
NEWCNT:: .BYTE 
CONFLG:: .BYTE 
EVE 


TEMPA:: . 
SUPRSS: 


: .WORD 


oooyue wMmoagno ooo0o0o0 oooscodod oc oO 
SPER Foss 
: 


DEF BUF 


oo ooooo°o 


sPATTERN @1 CALL O'S) 
sPATTERN #2 CALL 1'S) 
sPATTERN @3 CWORST CASE) 


sIF = 1, ALLOW ACCESS TO ANYWHERE ON MEDIA 

sIF_ = 0, ALLOW ACCESS TO FE CYLINDER 1 ONLY 

sOPTIONS; O=FORMAT, 1*VERIFY, 2=SCAN, 3=MODIFY, 
4*LIST, S=WRITE FE-2 AND 6*HELP 


;SCAN OPTION; ENABLED= 1, DISABLED= 0 
sMODIFY OPTION; ENABLED= 1, DISABLED= 0 
sLIST OPTION; ENABLED= 1, DISABLED= 0 
sWRITE 2ND FE CYL OPTION; ENABLED= 1, DISABLED= 0 


sUSED TO INHIBIT WRITE CHECK COMMAND 

sUSED TO ENABLE WRITE TO OPTION AFTER PACK SCAN 
sMODIFY TO BY; O=WORDS, 1*INDEX, 2=CHANGE 

sUSED TO LIST HEADER INFO IN DEFECT SECTORS 
sWHEN EQ TO 1 CHANGE DRIVE PARAMETERS 


sUSED TO DETERMINE MIN CYLINDER OF OPERATION 


sUSED TO DETERMINE MIN TRACK OF OPERATION 
sUSED TO DETERMINE MAX TRACK OF OPERATION 


sLAST USER CYLINDER ADDRESS 

sLAST TRACK ADDRESS 

sUSEOD TO CONTROL MAX ERRORS 

sUSEO TO CREATE BUFFER BOUNDARIES 

sUSED TO MARK BUFFER BOUNDARIES 

sCONTAINS BUS ADOR FOR DRIVER MODULE 

sCONTENTS OF OFFSET REGISTER FOR DRIVER MODULE 
sUSEOD TO LINK BUFFER TO BUFFER TRANSFERS 


sUSED TO CONTROL SCANNER ITERATIONS 

1@ OF SCAN ITERATIONS DURING A SCAN OPERATION 
sINTERLEAVE MODE INDICATOR 

sSET IF PROGRAM IS DOING CONTINUE COMMAND 


sUSED FOR SOFTWARE CALCULATIONS 
sCONTROL USED TO SUPRESS ERROR MESSAGES 


SEQ 0037 


Ren en ane ee oe a ee 


M3 
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DEFCNT:: .WORD 0 sUSED TO TRACK THE HDA DEFECT COUNT 
TBLPTR:: .WORD O sUSED TO FEED AN ADDRESS TO ‘GETNEX’ 
ERRFNC:: .WORD 0 sUSED TO STORE THE FUNCTION AT TIME OF FAILURE 
SOFSW:: .WORD 0 sUSED FOR SOFTWARE SCRATCH 
ITCNT:: .WORD O sCONTAINS @ OF ITERATIONS TO MAKE ON A COMMAND 
ERTTL:: .WORD O sCONTAINS THE TOTAL @ OF REPORTED ERRORS DETECTED 
ERRTTL:: .WORD O sCONTAINS THE TOTAL @ OF ERRORS ON THE DEVICE 
ERRMSK:: .WORD 0O sERROR MASK 
RTYCNT:: .WORD 0 sUSEO TO MAINTAIN THE LOCAL RETRY COUNTER 
EXPCTD:: .WORD 0 sUSED TO IDENTIFY EXPECTED DATA 
RECVED:: .WORD 0O sUSED TO IDENTIFY RECEIVED DATA 
DEF 1:: -WORD 0 sACCUMULATOR FOR TRACKS WITH ONE DEFECT 
DEFe:: «WORD 0 sACCUMULATOR FOR TRACKW WITH TWO DEFECTS 
DEF3:: WORD 0 sACCUMULATOR FOR TRACKS WITH THREE DEFECTS 
DEF4: : WORD 0 sACCUMULATOR FOR TRACKS WITH FOUR DEFECTS 
DESCYL:: .WORD 0 sDESIRED CYLINDER ADORESS 
DESTRK:: .WORD 0 sDESIRED TRACK ADDRESS CIN HI BYTE) 

sDESIRED SECTOR ADDRESS CIN LO BYTE) 
SAVCYL:: .WORD 0 sSAVED CYLINDER ADDRESS 
SAVTRK:: .WORD 0 sSAVED TRACK ADDRESS CIN HI BYTE) 

sSAVED SECTOR ADDRESS CIN LO BYTE) 
SECSO:: .BYTE 49. 350 SECTORS (0-49. ) 
PLTRK: : y Ma 25.,0 sINTERLEAVED FILE FOR 16-BIT FORMAT 
PATTRN:: .WORD ®BGNPAT sPOINTER TO BEGINNING OF DATA PATTERNS 
TOBCNT:: .WORD 6 3TO BYTE COUNT 


TOVALU:: .WORD Gi+TD sGAP 1 + TO CONSTANT 
-WORD G2 sGAP 2 CONSTANT 


§ SRPAREASEELEEESERSEEDESEROEEEDEEEEEEEREDEEEEOEEDEEEEEEEEEEEEEEEEDEEDEEEEEEEDREDES 
; THE FOLLOWING TABLE REPRESENTS THE VARIOUS PARTITIONS WITHIN A SECTOR FOR AN 
; RPO7. CIN 16 BIT MODE) THE TABLE STRUCTURE MUST NOT BE ALTERED IN ANYWAY. 


i 
; >>>D0 NOT DISTURB THE FOLLOWING TABLE UNDER ANY CIRCUMSTANCES<<< 
PARTBL:: .WORD HOR sSECTOR HEADER, 

-WORD G3 sGAP 3, 

-WORD MSEG sLEADING MIN. DATA SEGMENT, 

-WORD 222. sDATA FIELD SEGMENT, 

-WORD MSEG ; TRAILING MIN. DATA SEGMENT, 

. WORD GAP 4, 


$F SRASSSSSSESAASESSESESAEASASASSSSESESHESSEESESESEKESESSSEEEEEEEEEEEEESEEEESEEEEE 


LESS eAABERASKAKARLARERAAAARKEAEEDAAREERAES HEHEHE RHRAARRAEARERERRACRLARAAARREKARERRHRE 
3s THE TWO TO LIMIT WORDS, ‘TOLMTS' AND ‘TOLMTS+2’ ARE REFERENCED FROM 
3s INDEX TO THE CENTER OF THE FIRST DEFECT SKIP (0S1). WHILE THE TD LIMIT 
s WORD ‘TOLMTS+4' IS REFERENCED FROM THE CENTER OF THE FIRST DEFECT SKIP (0S1) 
3 TO THE CENTER OF THE SECOND DEFECT SKIP (0S2). THESE NUMBERS WILL BE USED 
3 WHEN THE PROGRAM IS TRYING TO DETERMINE IF A TD AND/OR HOR O SHOULD 
; BE MOVED. 
TOLMTS:: .WORD Gi+<DS/2> :TO MOVED LIMIT 
» WORD G1+TD+G2+<DS/2> sHOR O MOVED LIMIT 
. WORD <0S/2>+TD+G2+<DS/2> :TD € HOR O MOVED LIMIT 


3S FSESSSEESEAESESSESASSESESEEAESESEEAESSEEESSEEAEEESESEAARESEEEAEEEAAEASESARKESRELESE 


TEXT:: .WORD 0 sPOINTS TO ADDRESS OF TEXT TO BE TYPED 


N3 
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GLOBAL DATA SECTION 


000000 
000454 


000240 


CONTLT:: .WORD 
TKWCNT:: .WORD 
TEMP1:: .WORD 
TEMP2:: .WORD 
HICYL:: .WORD 
LOCYL:: .WORD 
NEGWRD:: .WORD 
RELWRD:: .WORD 
SECADD:: .WORD 
FUNCTN:: .WORD 
DEF SEC . WORD 
DEF TRK . WORD 
MINSEG:: .WORD 
MAXSEG:: .WORD 
MORETD:: .WORD 
UNTT:: .WORD 
RPADR:: .WORD 
RPVEC:: .WORD 
RHEXT:: .WORD 
RHTYPE: : .WORD 
ORVNO:: .WORD 
ORVSN:: .WORD 
RPCS1:: .WORD 
RPWC:: .WORD 
RPBA:: .WORD 
RPDA: . WORD 
RPCS2:: .WORD 
RPDS: WORD 


RPAS:: WORD 
RPLA:: .WORD 
RPOB:: .WORD 
RPMR1:: .WORD 
RPDOT:: .WORD 
RPSN:: .WORD 
RPOF:: .WORD 
RPOC:: .WORD 
RPCC:: .WORD 
RPER2:: .WORD 
RPER3:: .WORD 
RPEC1:: .WORD 
RPEC2:: .WORD 
RPBAE:: .WORD 
RPCS3:: .WORD 
3 STORAGE FOR 
3 

REG: : .BLKW 
DELTA:: .6LKW 
CMDQUE:: .BLKW 


é 


o ooooocooocooooonto 


a) 
~“ 
oa 
~J 
8 


176752 
DEVICE REGISTERS 
22 . 


6 


SEQ 0039 


sADDRESS OF CONTROL ‘T' SERVICE BUFFER 

sWORDS FOR TRACK FORMAT (6 WORDS X SO. SECTORS) 
sUSED TO INDENTIFY SCRATCHES 

sUSED TO MEASURE SCRATCH LENGTH 

1USED TO MAP THE HI ADDRESS OF A SCRATCH 

sUSED TO MAP THE LO ADDRESS OF A SCRATCH 
sNEGATED WORD COUNT FOR DRIVER 

sCONTAINS @ OF WORDS TO DEFECT, RELATIVE TO INDEX 
sSECTOR ADDRESS OF NEW TD DEFECT 

sFUNCTION COMMAND FOR RPO7 DRIVER MODULE 
sCONTAINS @ OF DEFECTS IN A SECTOR 

sCONTAINS @ OF DEFECTS ON A TRACK 

sMINIMUM VALUE FOR A DATA SEGMENT 

sMAXIMUM VALUE FOR A DATA SEGMENT 

sIF EQ 1, THEN MORE TD’'S TO MODIFY 


;USED TO SELECT A UNIT NUMBER 
sCONTAINS RPCS1 BASE ADDRESS 
sCONTAINS VECTOR ADDRESS € BR LEVEL 
sCONTAINS RH70 OFFSET TO RPBAE 

7 > tegen ot TYPE; RH11= O, RH70= 1 
sORIVE NUMBER 

sSTORAGE FOR EACH S/N DIGIT 


sBASE ADDRESS USED FOR THE DRIVE 
WORD 


sDESIRED SECTOR/TRACK ADDRESS 

sRPO7 STATUS REGISTER 

sRPO7 DRIVE STATUS 

sRPO7 ERROR REGISTER #1 

;RPO7 ATTENTION SUMMARY ets REGISTER 


sORIVE TYPE REGISTE 
sRPO7 SERIAL NUMBER 
sRPO7 OFFSET REGISTER 


sRPO7 ERROR REGISTER ¢2 
sRPO7 ERROR REGISTER #3 
sRPO7 ERROR-POSITION 
sRPO7 ERROR PATTERN 
sRH70 REGISTER 

sRH70 REGISTER 


sBUFFER TO SAVE REGISTERS AFTER AN ERROR 


sBUFFER USED TO STORE DELTA ADJUSTMENTS 
sUSED FOR A COMMAND SEQUENCE QUEVE 


B4 
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TEXT SECTION 


GLOBAL 


NOUS VB initur 


to od 


122 


122 


120 


120 


060 


. SBT TL 


GLOBAL TEXT SECTION 


tee 

s THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 
ee 


sNAMES OF DEVICES SUPPORTED BY PROGRAM 
3 
LSDvTYP:: 


-ASCIZ 
EVEN 


/RPO7/ 


s TEST DESCRIPTION 


3 
LSDESC:: 


SEQ 0040 © 


.ASCIZ /RPO7 FORMAT -VERIF Y-SCANNER/ 
-EVEN 
STATEMENTS USED IN PRINT CALLS 
ASCIZ /#N/ 
ASCIZ /#T/ 
-ASCIZ /SNSADRIVE RPCS1 RPWC RPBA RPDA RPCS2 RPDS/ 
-ASCIZ /SNSO6SA $06 / 
-ASCIZ /SNSARPER1 RPAS RPLA RPDS 1 RPOT RPSN/ 
-ASCIZ /SNSO6SA SO68A SO6SA SO6SA S06SA 806/ 
-ASCIZ /SNSARPOF RPOC cc RPER2 RPERS RPECi RPEC2/ 
-ASCIZ /SNSO6SA SO06SA S06SA A a S068N/ 
-ASCIZ /SARPBAE RPCS3/ 
ASCIZ / / 
-ASCIZ /SNSADRIVE #01/ 
-ASCIZ /@NSADONE, RETRIES MADE S058A., 9 DETECTED= S05SA.sN/ 
-ASCIZ /SATRACKS WITH SD28A DEFECTS= s05HA. 
-ASCIZ /SNSATOTAL DEFECTS FOUND= SDS58A./ 
-ASCIZ /S058A. 
-ASCIZ /S068A / 
-ASCIZ /GNSADRIVE  WORD@1 WORD@2 WORD@S WORD@4 WORDOS WORDO6/ 
-ASCIZ /SNSO6SA S068A S068A SO068A SO6SA 806/ 
-ASCIZ /SNSACYL:SD38A. TRK:8D28A, / 
-ASCIZ /SAPRSNT FUNCT: ST/ 
-ASCIZ /STSA SO6SA 806/ 
-ASCIZ /SNSATYPE <CR> TO INPUT (0*140000) DATA; / 
-ASCIZ /#A, NON-INTERLEAVEDSN/ 
-ASCIZ /SA, INTERLEAVEDSN/ 
“ASCIZ /SNBANEW DEFECT(S) DURING SCAN ITERATION SO38A., TOCS) FOLLOW: / 
-ASCIZ /SNSAEXPCTD:8068A RECVED:#06/ 
-ASCIZ /SNSAWORDO1 ( cyl) WORDO2 (trk pose. WORD@S WORD@4 WORDOS WORDO6SN/ 
-ASCIZ /#068A (SD38A, >” SO6SA (SD28A.)(SO0SSA) / 


-ASCIZ 


/@A SO68A (S028A.) / 


ee 


C4 
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GLOBAL TEXT SECTION 


126 006766 
129 007013 


FRMTSO:: .ASCII 


A 
FRMTS1::. 


/@NBAAVAILABLE OPTIONS FOLLOW;/ 
/SNSA O =Format/ 

/ONGA 1 *Verify/ 

/@NBA 2 *Scan/ 

/ONGA 3 =List/ 

JENGA & =Modify/ 

/ONGA 5S sWrite FE-2aN/ 


-SBTTL WARNING MESSAGES 


FRMT60: : oonts 


/#S118AInput date ‘ooo. 

/ENSTSACYL SO3BA., T SD28A. has 4 defects in track descriptor! SN/ 
/OnesTsAThere ere SD58A. track(s) with 4 defects! SN/ 

/iNaTSABad sector file buffer is full, no more entries allowed! aN/ 
/@NETSABad sector file dete is corrupt, it will be initialized!aN/ 
4@S11#AAnother defect was found S058A. words from IndexsN/ 
48S118ABed sector file will be updatedsNn/ 


-SBTTL GLOBAL ASCII MESSAGE SECTION 


MESG23:: .ASCIZ 


EM1:: -ASCIZ 
EM2:: .ASCIZ 


/WRITE TO/ 
/READ TD/ 
/URT DATA/ 
/URT CHK DATA/ 


O/ 
‘TEST RPDS: BIT7= 1/ 
<CR><LF>/EXPCTD: / 
<CR><LF>/RECVED: / 
<CR><LF>/CURRENT 10,7 
<CR><LF>/TO(S) WITH DEFECTS FOLLOW: / 
<CR><LF>/TOCS) WITH DEFECTS (INCLUDING HEADER INFO) FOLLOW:/ 
<CR><LF>/CHANGED T0,/ 
/WARNING ee /<BELL><BELL> 


/CHANGE DRIVE PARAMETERS/ 

ENTER OPTION (6*HELP)/ 

/MIN TRK/ 

/MAX TRK/ 

“MIN CYL/ 

/MAX CYL/ 

400 YOU WANT TO WRITE ANYWHERE ON MEDIA/ 

<BELL>/ ! CUSTOMER DATA WILL BE OVERWRITTEN !/<CR><LF> 
“BELLS --- 2 nen nee ee eee nen eee ee eee eee ee -e- /<CR><LF> 
/CONTINUE/ 

INHIBIT WRITE CHECK 

/MODIFY BY (O sWords, 1 sIndex, 2 *Change)/ 

400 YOU WANT TO RE- WRITE TOCS) WITH NEW DEFECTS/ 

/LIST HEADER INFO IN DEFECT SECTOR(S)/ 


/TD ADDRESS INCORRECT/ 
/TD FORMAT INCORRECT/ 


SEQ 0041 


D4 
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GLOBAL ASCII MESSAGE SECTION 

130 007037 103 117 115 EM3:: -ASCIZ /COMPOSITE ERROR SET/ 

131 007063 104 122 111 EM4:: -ASCIZ /DRIVE HUNG, DRY NOT SET IN TIME/ 

132 007123 104 122 111 EMS:: -ASCIZ /ORIVE WRITE LOCKED/ 

133 007146 104 122 111 EM6:: -ASCIZ /ORIVE OFFLINE/ 

is 007164 125 116 10S EM?:: -ASCIZ /UNEXPECTED ATTN OCCURRED/ 

136 007215 127 122 111 EM10:: .ASCIZ /WRITE CHECK ERROR SET/ 

137 007243 106 117 122 EM1i:: .ASCIZ /FORMAT VERIFY ERROR/ 

138 007267 104 122 131 EM12:: .ASCIZ /ORY DION'T RESET WHEN EXPECTED/ 

139 007326 124 122 101 EM13:: .ASCIZ /TRANSFER ERROR SET/ 

140 007351 123 120 105 EM14:: .ASCIZ /SPECIAL CONDITION SET/ 

141 007377 122 101 116 EM15:: .ASCIZ /RANDOM HEADER ERRORS -CAN’T RESOLVE DEFECTS-/ 

142 007454 103 117 125 EM16:: .ASCIZ /COULD NOT SUPPLY READABLE TD THRU RELOCATION/ 

ies 007531 125 116 122 EM17:: .ASCIZ /UNRECOVERABLE ERROR DURING PACK SCAN/ 

145 007576 122 101 116 EM20:: .ASCIZ /RANDOM WRT CHK ERRORS -CAN’T RESOLVE DEFECTS-/ 

146 007654 116 117 116 EM21:: .ASCIZ /NON-EXISTENT ORIVE/ 

147 007677 104 122 111 EM22:: .ASCIZ /ORIVE NOT AN RPO7/ 

ise -EVEN 


nn a a a en = a ne = oe ee a 


E4 
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GLOBAL ERROR REPORT SECTION 


OBO YV Switr 


Bt 
2 
i 


010114 


011046 
011132 


002656 
000001 


000012 
031416 


.SBTTL GLOBAL ERROR REPORT SECTION 


ye 

s THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 

s THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
; THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 

gece 


| 
| 
ERRO:: 
JSR PC, TYPLOC sREPORT THE ADORESS OF THE FAILURE 
JSR PC ,DMPREG 1ORe THE ERROR REGISTERS 
3 - 
MOV e@CRLF, -(SP) 
MOV @1,-(SP) 
MOV SP RO 
TRAP CsPNTB 
ADD 04,SP 
110002: 
TRAP C8MSG 
ERR1:: 
JSR PC, TYPLOC sREPORT THE ADDRESS OF THE FAILURE 
sPRINT ‘EXPCTD: XXXXXX XXXXXX’ 
MOV TOCPY2, -(SP) 
MOV TOCPY1, -(SP) 
MOV @EXPTD, -(SP) 
MOV OFRMT23, -(SP) 
MOV 04,-(SP) 
MOV SP RO 
TRAP CsPNTB 
ADD #12,SP 
sPRINT ‘RECVED: XXXXXX XXXXXX’ 
MOV TOWRD2, -( SP) 
MOV TOWRD1, -(SP) 
MOV @RCVED, -( SP) 
MOV @FRMT23, -(SP) 
MOV 64. -(SP) 
TRAP CsPNTB 
ADO #12,SP | 
JSR PC ,OMPREG 1DUMP THE ERROR REGISTERS | 
3 - 
MOV @CRLF , -(SP) 
MOV #1,-C(SP) 
MOV SP, 
TRAP CsPNTB 
04, 
L10003: 
TRAP CéMSG 
ERR: : 
JSR PC, TYPLOC sREPORT THE ADDRESS OF THE FAILURE 


sPRINT ‘DRIVE WORD@1 WORD@2 WORD@S WORDO4 WORDOS WORDS’ 
MOV @FRMT16, -C( SP) 
MOV ES Sade 


«RO 
TRAP CSPNTB 


F4 
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GLOBAL ERROR REPORT SECTION 


31 


32 
33 


49 


010116 


010172 


010176 
010202 


L10004: 


ERRS:: 


L10005: 


ERRS:: 


10006; 


#10, -(SP) 


@CRLF , -( SP) 
1, -(SP) 


PC, TYPLOC 


@CRLF , -(SP) 
@#1,-(SP) 
SP ,R 


2RO 
CSPNTB 


CsMSG 


PC, TYPLOC 


SEQ 0044 


;CR-LF 


;CR-LF 


sREPORT THE ADDRESS OF THE FAILURE 


sREPORT THE ADDRESS OF THE FAILURE 
| 
sPRINT ‘EXPCTD: XXXXXX RECVED: XXXXXxX’ 


sDOUMP THE ERROR REGISTERS 
3sCR-LF 


G4 
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GLOBAL SUBROUTINES SECTION 


OOnsndu autor 


001400 
000003 


176377 
002432 
000004 


002430 


002430 


.SBTTL GLOBAL SUBROUTINES SECTION 


sAUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF IT IS JUMPERED FOR 22 OR 
332 REGISTERS 


3CALL 
F JSR PC,SIZE70 sCALL ROUTINE 
i 
3R5 MUST CONTAIN POINTER TO NEW RPCS1 BASE ADDRESS 
SIZE70: CLR RHEXT ;CLEAR RPBAE OFFSET 
CLR RHTYPE sCLEAR RHXX TYPE REGISTER (RH11) 
MOV ERRVEC, -(SP) sSAVE CONTENTS OF ERROR VECTOR 
MOV 2% ,ERRVEC sSETUP ‘TRAP’ RETURN ADDRESS 
MOV CR5),RO sGET RPCS1 ADDRESS 
ADD #50,RO ;GET REGISTER OFFSET FOR RH70 
MOV #10. ,R2 sGET NUMBER OF REGISTERS TO CHECK 
TST CRO)-+ sTRAP IF NOT A VALID RPBAE 
TST CRO)+ sTRAP IF NOT A VALIO RPCS3 
MOV #50, ,RHEXT }LOAD OFFSET FOR RPBAE (22 REGISTER RH) 
1%: TST CRO)+ sTRAP IF NOT A VALID REGISTER 
DEC Re sDONE WITH ALL 32 REGISTERS ? 
BNE 1% 368R IF NO 
- —_ sLOAD OFFSET FOR RPBAE (32 REGISTER RH) 
2s: a @33,(SP) ;SETUP RETURN ADDRESS 
3%: MOV CRS),RO sGET RPCS1 REGISTER 
MOV RHEXT ,R2 sGET RPBAE REGISTER OFFSET 
BEQ 4% 368R IF NONE 
ADO RO,R2] 3GET RPBAE REGISTER 
BIS #A17!A16,(RO) sSET EXTENDED ADORESS BITS IN RPCS1 
CMP ++ Talal sARE THE EXTENDED BITS SET IN RPBAE ? 
BNE 368R IF NO 
CLR ¢ Re) iCLEAR EXTENDED ADDRESS BITS IN RPBAE 
MOV CRO), -CSP) ;SAVE RPCS1 REG CONTENTS 
BIC @tC<AL7TIAI6>, csp)}e sARE THE EXTEND BITS CLEAR IN RPCS1 ? 
BNE > ad 368R IF NO 
INC TYPE sSET RHXX TYPE REGISTER (RH70) 


4%: MOV C3P 9+, ERRVEC ;RESTORE CONTENTS OF ERROR VECTOR 


H4 
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DISK DRIVER 
1 -SBTTL DISK ORIVER 
2 
3 3 ea ey enna tn apn a elt a eg a ta eg htt a ep ee > 
4 sTHE ‘READY’ ROTUINE LOOKS AT REGISTER RPDS TO DETERMINE DRIVE READY STATUS 
5 3 ANO Ts CALLED FROM THE ‘DORIVER' ROUTINE. 
6 sTHE ‘DRIVER’ ROUTINE SENDS THE COMMAND TO THE CONTROLLER AND IS CALLED BY: THE 
7 sREAD/WRITE FUNCTIONS. 
4 sCINPUTS AND OUTPUTS ARE FOR ‘DRIVER’ MODULE ) 
34 
10 sINPUTS ARE: gl DESCYL, DESTRK, BUSADR, OFFSET, FUNCTN, RPDS, NOWRCK, 
11 3 RPCS1 
12 Hy 
13 sNEGWRO = WORD COUNT TO BE NEGATED. (GETS NEGATED IN DRIVER) 
14 sDESCYL = DESIRED CYLINDER ADDRESS. 
15 sDESTRK = DESIRED TRACK/SECTOR ADDRESS. 
16 sBUSADR = BUS ADDRESS FOR DATA TRANSFERS. 
17 sOFFSET = CONTENTS OF THE OFFSET REGISTER. 
4 sFUNCTN = COMMAND (FUNCTION) TO BE EXECUTED. 
3 
sOUTPUTS ARE: RPWC, RPDA, RPCS1, RPBA, ERRMSK 
3% 
22 sCALL 
23 3 JSR PC ,.ORIVER sSEND COMMAND TO CONTROLLER 
24 § S SSSASASSASSSASHEEAEESEASELALEEEEEEESEEEAASESEEESEEESEEEEEEEEEEEEEEESEEEEESEEED 
25 
26 010472 105777 171754 READY: TSTB BRPOS 3IS ORIVE READY SET ? 
27 010476 100375 BPL READY ;68R IF NO 
4 010500 000207 RTS PC 
30 010502 005037 002272 DRIVER: CLR ERRMSK sRESET NO ERROR STATUS 
31 010506 005437 002376 NEG NEGWRD sNEGATE THE WORD COUNT ONLY ONCE! 
32 010512 032777 040000 171732 1%: BIT ERR ,BRPOS 300 WE HAVE A COMPOSITE ERROR? 
= 010520 001134 BNE 11% 36R IF YES 
35 010522 004737 010472 2%: JSR PC READY sWAIT FOR DRIVE READY 
36 010526 013777 002376 171706 MOV NEGWRD , BRPWC sLOAD WORD COUNT, 
37 010534 013777 002312 171732 MOV DESCYL , @RPOC sCYLINDER, 
38 010542 013777 002314 171676 MOV DESTRK , G@RPDA 3 TRK/SEC, 
39 010550 013777 002234 171666 MOV BUSADR , SRPBA sB8US ADORESS, 
40 010556 013777 002236 171706 53%: MOV OF FSET , GRPOF sAND OFFSET REGISTERS. 
41 010564 042777 100000 171672 BIC @OMD , GRPMR1 sASSUME NOT DIAGNOSTIC 
42 010572 013746 002222 MOV LSCYL,-C€SP) sGET LAST USER CYLINDER ADDRESS AND 
43 010576 1 INC ) sMAKE THE FIRST FE CYLINDER 
44 010600 023726 002312 DESCYL .(CSP)-+ sACCESSING FE CYLINDER 
45 010604 103403 BLO sIF NOT, SKIP NEXT INSTRUCTION 
46 010606 052777 100000 171650 BIS @OMD , SRPMR1 sSET DIAGNOSTIC MODE 
47 010614 013777 002404 171616 4%: MOV FUNCTN, GRPCS1 sGET THE COMMAND TO EXECUTE 
48 010622 017746 171612 5%: MOV GRPCS1, -( SP) 3GET STATUS 
49 010626 042716 177576 BIC @tC<RDOY!GO>,( SP) 
SO 010632 022726 000200 CMP @RDY ,CSP)+ sROY*"1,GO*0 ? 
51 010636 001371 BNE 5¢ sBR IF NO 
a sFUNCTION COMPLETE, LOOK FOR ERRORS 
55 010640 032777 040000 171572 BIT @TRE ,@RPCS1 sIS TRE SET ? 


S56 010646 001433 BEQ 8s sBR IF NO 
57 010650 0352777 100000 171624 BIT BSE , GRPERS sSEE IF A BSE WAS DETECTED DURING THE 


ZRIKBO —¥ FMTR/SCANNER MACRO 


c 
DISK DRIVE 


000011 
171550 


000073 


14 
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171552 


002404 


171534 


002272 
002272 


000035 


002272 


002272 


171442 


002272 


002404 


68: 


78; 


9%: 


108: 


118: 
12s: 


138: 


6$ 
@ORVCLR, @RPCS1 
ORPWC 


12% 
@RDHD , FUNC TN 
les 

3$ 
— 
#7, ERRMSK 
12$ 

#14 ,ERRMSK 
12$ 


FUNCTN, @DIAG 


NOWRCK 
12% 


OFMTRK ,FUNCTN 


12% 
PC, ,WRITCK 
ORIVER 


sDATA TRANSFER AND BRANCH IF NOT, ELSE 
s00 A ORIVE CLEAR 

1IF THE DATA TRANSFER WAS COMPLETED, 
+THEN EXIT DRIVER NOW. 

iSEE IF COMMAND WAS A READ HEADER, ELSE 
sEXIT ORIVER IF NOT. 

;CONTINUE COMMAND. . . 


sIS ‘WCE’ SET ? 
3BR IF NO 
sLOG 'WRITE CHECK ERROR’ STATUS 


sLOG ‘TRANSFER ERROR’ STATUS 


sWAS IT A “HOUSEKEEP” COMMAND ? 

368R IF NO 

sDID WE GET AN UNEXPECTED ATA ? 

36R IF NO 

sLOG ‘UNEXPECTED ATTENTION ERROR’ STATUS 


sIS SPECIAL CONDITION SET ? 
;6R IF NO 


sLOG ‘SPECIAL CONDITION ERROR’ STATUS 


s0ID WE GET A COMPOSITE ERROR? 
;6R IF NO 

sLOG ‘COMPOSITE ERROR’ STATUS 
sEXIT 


ee CHECK OPERATION ? 
3 
sWAS THE LAST FUNCTION A FORMAT TRACK ? 


3;6R IF NO 
300 THE WRITE-CHECK OPERATION 


SEQ 0047 


J4 
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DISK DRIVER 


1 
e FF FSAAAREAASHAASAAALASESAEEAOEEEEEARERASEEEREREEEEAERARAEEEEEEEEEEEEEERESEEREEERE 
3 sTHIS MODULE IS USED BY THE ERROR REPORTING SECTION OF THE PROGRAM. THE 
4 sPURPOSE OF THIS MODULE IS TO REPORT THE FUNCTION IN PROCESS AT THE TIME OF 
Ss sFAILURE, THE TRACK AND CYLINDER IN PROCESS AT THE TIME OF THE FAILURE. 
6 ta 
H s INPUTS ARE: ERRFNC, DESTRK+1, DESCYL 
HY 
* sOUTPUT IS USER CONSUMABLE. 
34 
11 ;CALL 
le ’ JSR PC, TYPLOC 
i3 8 FE SSAAAASAKSEEESEAEEEEESEEESASEEAEEALEEEEAEAREREEEEEEEEEEEEEEESEEEEEEAEEEAEEEEHEEE 
14 
1S 011046 TYPLOC: sPRINT ‘PRSNT FUNL’: 
16 011046 013746 002260 MOV ERRFNC, -( SP) 
011052 012746 004070 MOV @FRMT22, -( SP) 
011056 012746 000002 MOV @2,-(SP) 
011062 010600 MOV SP ,RO 
011064 104414 TRAP CSPNTB 
7 011066 062706 000006 ADD @6,SP 
16 011072 113737 002315 002362 MOVB DESTRK+1,CONTLT ;GET THE TRACK AD 
19 sPRINT ‘CYL: T 
20 011100 013746 002362 MOV CONTLT, -(SP) 
011104 013746 002312 MOV DESCYL, -( SP) 
011110 012746 004034 MOV @FRMT20, -CSP) 
011114 012746 000003 MOV @3,-CSP) 
011120 010600 MOV SP ,RO 
011122 104414 TRAP CSPNTB 
011124 062706 000010 ADD #10,SP 
21 011130 000207 RTS PC ;RETURN 


SE@ 0048 


Kd 
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DISK DRIVER 


OOBnOUS WY 


17 


18 
19 


21 
22 


23 


§ fF PPRAEAEEEEEEEEEEEEESEDESEREEEEESEREDEEEEDEEEEEEDEEDEEEEEEEEEEEEEEEEEEEEEEEEES 
sTHIS MODULE IS USED BY THE ERROR REPORTING SECTION OF THE PROGRAM. IT 

— A REGISTER SNAPSHOT OF THE RHXX REGISTERS SUBSEQUENT TO A DETECTABLE 
; . 


34 

s INPUTS ARE: FROM REG - REG+52 

3 

;THE OUTPUT IS USER CONSUMABLE. 

34 

;CALL 

3 JSR PC ,OMPREG 

8 F SSAAASASESSASAASAAEEESEREELASEASEAEEESEEAEEESEEAEESESAEEEEEEADESEESESESEAEEEEEEEEE 
OMPREG: ;PRINT ‘DRIVE RPCS1 RPWC RPBA RPDA RPCS2 


sPRINT ‘RPERL RPAS RPLA RPDB RPMRK1 RPDT 
MOV #1, -CSP) 
RO 


sPRINT ‘RPOF RPDC RPCC RPER2 RPERS RPECI 
MOV @FRMNTO4, -C SP) 
MOV #1 s* ¢ SP) 
MOV SP ,RO 
TRAP CSPNTX 


@4,SP 
MOV REG +46, -( SP) 


a 


SEQ 0049 


RPDS’ 


RPEC2' 
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DISK DRIVER 

011346 013746 002560 MOV REG+44, -(SP) 
011352 013746 002556 MOV REG+42,-(SP) 
011356 013746 002554 MOV REG+40, -(SP) | 
011362 013746 002552 MOV REG+36.-(SP) | 
011366 013746 002550 MOV REG+34. -(SP) 
011372 013746 002546 MOV REG+32, -(SP) 
011376 012746 003300 MOV OFRMTOS, -(SP) 
011402 012746 000010 MOV #10, -(SP) 
011406 010600 MOV SP RO 
011410 104415 TRAP  — C$PNTX 

ng 011412 062706 00022 ADD $22, SP 

25 911416 005737 002432 TST RHTYPE ;IS IT RH70 CONTROLLER ? 

26 011422 001424 BEQ 18 BR IF NO 

27 ;PRINT ‘RPBAE RPCS3° 

28 011424 012746 003362 MOV OF RMTO6, -(SP) 
011430 012746 000001 MOV 1, -(SP) 
011434 010600 MOV SP-RO 
011436 104415 TRAP — CSPNTX 
011440 062706 000004 ADD 64,SP 

29 011444 013746 002566 MOV REG+S2, -(SP) 
011450 013746 002564 MOV REG+50, -(SP} 
011454 012746 003402 MOV @FRMTO7, -(SP) 
011460 012746 000003 MOV @3,-(SP) 
011464 010600 MOV SP RO 
011466 104415 TRAP = C$PNTX 
011470 062706 000010 ADD 610,SP 

30 011474 000207 18: RTS PC ; RETURN 


a a ae re 


M4 
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DISK ORIVER 


OOK V Swe 


10 


011476 


011514 
011516 


011576 
011576 


011626 
032462 


031460 


031463 


002222 


002224 


FL FSAAAAEEAHAEAEEESEEAEEESLEEEREREEAAEEEEEEEEEEEREREAEEAEEEEEEEEEEEEEEEEEDEDEEES 


sTHIS MODULE IS USED TO LOG DATA INTO THE BAD SECTOR FILE. 


THIS DATA IS PUT 


sINTO THE BSF BECAUSE IT WON'T FIT INTO THE TD FOR AN EXISTING TRACK. 
FROM TMPBSF, TMPBSF +2 


3* 
; INPUTS ARE: 


é 
sOUTPUTS ARE: 
a 


TO A BUFFER CALLED 'MFGBUF’ 


COUTPUT IS CONTROLLED BY ‘ENTBSF’, 


INDICATING THAT THE BSF IS ALREADY FULL) 


sCALL ROUTINE 


3S SHAAAHEASEASAASEREEEASEESESEAEEEAESEREEEEAEESEEEEEEEAESEEEEASESEDEEAESEAEEEEEEEDE 


34 
3;CALL 
3 JSR PC ,LODBSF 
LODBSF : 
MOV Re, -( SP) 
TST MODTD 
BEQ 1$ 
TST MODBY 
BEQ es 
BR 5$ 
“18: TST ENWTTD 
BEQ S$ 
2s: MOV ENTBSF ,R2 
CMP R2, o€ 
BHI 4$ 
CMP TMPBSF ,LSCYL 
BHI 5$ 
BLO 3% 
CMPB TMPBSF +3,LSTRK 
BEG 5% 
3%: MOV TMPBSF ,CR2)+ 
MOV TMPBSF +2,(CR2)+ 
MOV R2,ENTBSF 
BR 5$ 
4: 
MOV @WARN, -( SP) 
MOV OF RMT63, -C SP) 
MOV @2,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6, SP 
S$: 
MOV (SP)+,R2 
RTS PC 
ENTBSF: .WORD 0 


33PUSH R2 ON STACK 

sSEE IF MANUAL MODIFY IS ENABLED, 

sBRANCH IF NOT, ELSE 

iCHECK TO SEE IF MODIFIING BY WORDS OR INDEX, 
sBRANCH IF WORD COUNT MODE, ELSE 

sMUST BE INDEX MODE. SO EXIT. 


;SEE IF WRT TO IS ENABLED DURING SCAN MODE, 
;BRANCH IF NOT, ELSE 

}GET POINTER FOR ENTRY INTO BSF 

3IS BSF BUFFER FULL ? 

3;6R IF YES 

sSEE WHAT CYLINDER ADDRESS IS BEING FLAGGED, 
sBRANCH IF FE CYLINDER(S), 

sBRANCH IF ANY USER CYLINDER, ELSE 

sSEE IF WE ARE FLAGGING THE BSF AREA, 
sBRANCH IF SO, ELSE 

3LOG THE BSF DATA. 

;CYLINDER/TRACK/SECTOR 

sUPDATE POINTER FOR NEXT ENTRY INTO BSF 

;AND FOR NOW, TAKE THE RETURN 

;PRINT " WARNING #* 6AD SECTOR FILE BUFFER IS 
3 FULL, NO MORE ENTRIES ALLOWED’ 


s3POP STACK INTO R2 
sRETURN TO THE CALLER 


sCONTAINS ADORESS POINTER FOR NEXT ENTRY INTO 
sTHE BAD SECTOR FILE. 


SEQ 0051 


N4 


CZRJKBO RPO7 FMTR/SCANNER MACRO VO4.00 1-DEC-83 09:58:43 PAGE 21 
DISK DRIVER 


OOO YUSwfor 


§ [REAPER ERAREREEEEEREEEEESEREEEREREEEEEEEDEEEEDEREREEEEEEREEEEE! BOO40EEREEEES 
sTHIS MODULE DOES THE BUFFER CHANGING WHEN A WRITE-CHECK OR READ HEADER € DATA 
sOPERATION IS REQUIRED ON A DRIVE WHICH WAS FORMATTED IN INTERLEAVED MODE. 

;THE WRITE CHECK AND READ HEADER € DATA FUNCTION ARE ALWAY DONE IN A LINEAR 
sFASHION, IE: SECTOR (N), SECTOR (N+1), SECTOR (N+2), SECTOR (Ne...), 
;REGARDLESS OF WHETHER THE DRIVE IS IN INTERLEAVED OR NON-INTERLEAVED MODE. 


3% 

s INPUTS ARE: HORBLK 
3 

sOUTPUTS ARE: LINBUF 


3* 
;THIS MODULE IS CALLED BY: WRITCK, VERIFY 
£ FE SSSSAAREAAESAEESESEEEERESEEAEEAAAREREREEASEAESESEREAAEAESEEEREREEAEEALEEEEREREDRESD 


CHABUF : 
MOV R1,-CSP) :;PUSH R1 ON STACK 
MOV R2,-CSP) 33PUSH R2 ON STACK 
MOV R3,-C(SP) 33PUSH R3 ON STACK 
MOV R4,-CSP) 3sPUSH R4 ON STACK 
MOV RS, -CSP) 33PUSH RS ON STACK 
MOV @HORBLK ,R1 ;GET POINTER TO BEGINNING OF INTERLEAVED DATA 
MOV @LINBUF ,R2 sGET POINTER TO BEGINNING OF LINEAR BUFFER 
MOV @2,R3 ;AND DO FOR 2 ITERATIONS 
1$: MOVB SECSO,RS ;GET THE @ OF SECTORS 
INC RS sei 
ASR RS sAND DIVIDE BY 2 
2s: MOV 06,R4 3@ OF WORDS/SECTOR 
3$: MOV CR1)+,CR2)+ ;LOG THE DATA 
DEC R4 sREDUCE @ OF REMAINING WORDS 
BGT 3$ ;IF > 0, DO AGAIN 
ADD #12.,R1 ;SKIP A SECTOR 
DEC RS ;ONE LESS SECTOR TO DO 
BGT 2s ;IF > 0, KEEP ON GOING 
MOV @HORBLK+12. ,R1 iGET SECOND HALF OF BUFFER 
DEC R3 sSECOND PASS, R31 
BGT 1$ 3IF >» O, IT TIME FOR SECOND PASS 
MOV CSP)+,R 3:POP STACK INTO RS 
MOV CSP )+,R4 33POP STACK INTO R4& 
MOV CSP)+,R3 3sPOP STACK INTO R3 
MOV (SP)+,R2 +3sPOP STACK INTO R2 
MOV CSP)+,R1 33POP STACK INTO Ri 
RTS PC sRETURN 


SEQ 0052 
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WRITE BUFFER POSTFIX MODULE 


SON Bint 


011734 
011740 
011742 
011746 
011754 
011762 
011770 
011776 
012004 


BS 


-SBTTL WRITE BUFFER POSTFIX MODULE 


§ FOPOOOOOEEEEEEEEEEEEE EEE OEEREEEEEERESEEESEEOEEEEEEEEEEESESEEEEEESEEEEEEEEEEES 
sTHIS MODULE PERFORMS THE BUFFER POSTFIXING WHEN AN INTERLEAVED FORMAT 
sOPERATION WAS PERFORMED. THE WRITE CHECK OPERATION IS PERFORMED IN A LINEAR 
sFASHION, IE: SECTOR (N), SECTOR (Nel), SECTOR (Ne2), SECTOR (Ne...). 


3¢ 

4 

sOUTPUTS ARE: BUSADR, FUNCTN, ERRFNC, RPEOF, NEGWRD 
3¢ 

sTHIS ROUTINE IS CALLED FROM THE ‘DRIVER’. 


§ SOPRA OEEEEEEEEREOEEEEEOEEEEEEEEEEEEEEEEEEEEEOEEEEOEEEEEEEEEEEEEEEEEOEESE 
WRITCK: TSTB INTLEV s INTERLEAVE MODE ? 
BEQ i$ F 


36R IF NO 
JSR PC, CHABUF sRE-SHUFFLE INTERLEAVED DATA AND 
MOV @LINBUF .BUSADR ;GET POINTER TO BEGINNING OF LINEAR BUFFER 
18: MOV @WCKHD.FUNCTN ;SETUP A WRITE-CHECK HEADERS OPERATION 
MOV @WCKHDR ,ERRFNC ;SAVE FUNCTION FOR ERROR ROUTINE 
BIS @CMOD , OF FSET sSET COMMAND MODIFIER BIT 
MOV TKWCNT , NEGWRD sAND SET TRACK WORD COUNT (6 WRDS x 50. SECTORS) 
RTS PC sNOW TAKE THE RETURN 


SEQ 0053 


CS 
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MANUAL INPUT ROUTINE 


OOO Naw 


10 


19 


23 


012110 


012114 
012122 


004737 


012737 
004737 


002156 


021440 


026332 


-SBTTL MANUAL INPUT ROUTINE 

FL ASHASHOHHAEAEESEEEEEESESEEESEESEEEASEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESE 
sTHIS MODULE COLLECTS THE USER INPUT TO MODIFY AN EXISTING TRACK DESCRIPTOR IT 
; THEN TAKES THE USER VALUES AND MERGES THEM INTO AN EXISTING OR NEW TRACK 
sDESCRIPTOR. 

3¢ 

sINPUTS ARE: TOCPYS - TOCPY6, DESCYL, DESTRK, @NULL 

8 

sOUTPUTS ARE: TOCPYS - TOCPY6, TOWRD1 - TOWRD6, TEXT, RELWRD, SECADD 


34 
sTHIS MODULE IS CALLED BY: MAIN 


8 FS SSOASSESSEAESSSEHEEEEEESEEHE SEES EEARESESERESEEEEEEEEEEEEEEEEEEEEEEEEEEHESEEEEEES 


INPUTD: 


Vv RO, -(SP) 3sPUSH RO ON STACK 
MOV R1,-CSP) 33PUSH R1 ON STACK 
sPRINT ‘MODIFY BY (O=WORDS, 1*INDEX, 2=CHANGE )?’ 
TRAP CS8GMAN 
BR 100008 
-WORD MODBY 
-WORD TSCODE 
-WORD MESG22 
-WORD 3 
-WORD TSLOLIM 
-WORD TSHILIM 
100008: 
TST ANYWHR 3:00N'T ALLOW DESIRED CYLINDER TO BE CHANGED, 
BEQ is tIF WRITTING ON FE CYLINDER ONLY, ELSE 
sPRINT ‘CYLINDER ADDRESS (D0) O ?' 
TRAP CS$GMAN 
BR 100018 
-WORD ODESCYL 
.WORD TSCODE 
-WORD MESG38 
. WORD 177777 
-WORD TSLOLIM 
-WORD TSHILIM 
10001$%: 
1%: sPRINT ‘TRACK ADDRESS (0D) O ?' 
TRAP CS8GMAN 
BR 100028 
-WORD DESTRK 
.WORD TSCODE 
-WORD MESG39 
-WORD 177400 
-WORD TSLOLIM 
-WORD TSHILIM 
100028: 
JSR PC ,,READTD sCALL THE READ TD SUBROUTINE 
BR 26 sRETURN HERE IF EXCEEDED RETRY LIMIT 
BR 3% sELSE RETURN HERE. NO ERROR 


2s: JSR PC .DESTO 1GET DESIRED TO, BECAUSE WE FAILED THE READ 


006030 002360 5%: MOV @CURENT, TEXT sLOAD TEXT WITH ADDRESS OF MESSAGE 


017240 


JSR PC, TODUMP sGO OUMP THE TRACK DESCRIPTOR 


SEQ 0054 


DS 
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MANUAL INPUT ROUTINE 

34 012126 023727 002202 000001 4%: CMP MODBY , #1 sMODIFY BY WORDS, INDEX OR CHANGE MODE ? 
35 012134 002512 BLT 6% s8R IF WORDS 
36 012136 001545 BEQ 7$ :BR IF INDEX 
37 sMUST BE CHANGE MODE 
38 012140 042737 140000 031414 BIC oe nae sRESET TO € HOR O MOVED BITS 
39 012146 005037 031434 CLR TOCPYS T DUMMY NULL IN TO WORD 
4S 012152 005037 031436 CLR TOCPY4 ‘PUT DUMMY NULL IN TD WORD 04 

012156 005037 031440 CLR TOCPYS sPUT DUMMY NULL IN TD WORD os 

012162 005037 031442 CLR TOCPY6 sPUT DUMP NULL_IN TD WORD 06 
49 sPRINT ‘TYPE <CR> TO INPUT (0*140000) DATA;’ 
SO 012166 012746 004155 MOV @FRMT24, -( SP) 

012172 012746 000001 MOV #1, -(SP) 

012176 010600 MOV eRO 

012200 104414 TRAP CSPNTB 

012202 062706 000004 ADD @4,SP 
S1 sPRINT ‘TO WORD@3 (D) O ?' 
S2 012206 104445 TRAP C$GMAN 

012210 000406 BR 10003% 

012212 031434 .WORD TOCPYS 

012214 -WORD TSCODE 

012216 012772 -WORD MESG43 

012220 177777 «WORD 177777 

012222 000166 -WORD  TSLOLIM 

012224 042077 -WORD TSHILIM 

012226 10003$; 
S53 012226 005737 031434 TST TOCPYS sNULL ENTRY ? 
S54 012232 001436 BEQ S$ sBR IF YES 
SS sPRINT ‘TO WORD@4 (D) O ?' 
36 012234 1044435 TRAP C$GMAN 

012236 000406 BR 100048 

012240 031436 -WORD TOCPY4 

012242 -WORD TSCODE 

012244 01 . WORD SG44 

012246 177777 -WORD 177777 

012250 00000 -WORD TSLOLIM 

012252 042077 -WORD TSHILIM 

012254 100048: 
S57 012254 005737 031436 TST TOCPY4 sNULL - ? 
38 012260 001423 BEQ Ss sBR IF YE 
59 sPRINT 0 WORD@S (D) 0 ?' 
60 012262 104443 TRAP CS8GMAN 

012264 BR 10005% 

031440 -WORD TOCPYS 

012270 -WORD TSCODE 

012272 0135016 -WORD MESG4S 

012274 177777 «WORD 177777 

012276 00000 «WORD TSLOLIM 

012300 042077 -WORD TSHILIM 

012302 10005$ : 
61 012302 005737 031440 TST TOCPYS sNULL ENTRY ? 
62 012306 001410 BEQ S$ sBR IF YES 
63 sPRINT ‘TO WORD@6 (D) O ?° 
64 012310 1044435 TRAP C*#GMAN 

012312 000406 BR 100068 

012314 031442 -WORD TOCPY6 

012316 «WORD TSCODE 

012320 013030 -WORD MESG46 


ES 
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MANUAL. INPUT ROUTINE 


72 
73 


177777 
000001 
042077 
013737 


031434 
031436 
031440 
031442 


016616 
031460 
011476 


031420 
000004 


140000 


031420 
031422 
031424 
031426 


002354 
002400 


177776 


6%: 


100078: 


100108: 


78: 


100118: 
8s: 


9%: 
108%: 


118; 


177777 
TSLOLIM 
TSHILIM 
TOCPY3, TOWRDS 
TOCPY4 , TOWRD4 
TOCPYS, TOWRDS 
ls + TOWRDE 
4 


TSLOLIM 


TSHILIM 


PC RELTIVE 
RELWRD , TOLMTS+2 


83 
TOLMTS+2,RELWRO 
grata 


TSHILIM 
PC, INSERT 
TMPBSF 

98 

PC ,LODBSF 
166 
— RO 
04 ,R1 
(RO)* 


118% 
@NULL 7 -2(RO) 
R1 


sGET TO WORD @3 


sGET TD WORD 06 
sPRINT ‘SECTOR ADDRESS (D) ?’ 


sPRINT ‘WORD IN SECTOR (D) ?' 


sCALCULATE THE DEFECT VALUE RELATIVE TO INDEX 
OA tr tw BEGINNING OF DEFECT BE IN GAP 2 ? 
iGET UPPER LIMIT FOR HDR O MOVED AND 
sADD ONE TO IT 
one GO INSERT IT INTO TD. 
PRINT ‘WORDS FROM INDEX (D) ?' 


sINSERT THE DEFECT IN TO 

= - £- ry ROOM IN THE TRACK DESCRIPTOR ? 
: 

sLOAD THe esr BUFFER. 


sGET POINTER TO BEGINNING OF TD BUFFER 
1@ OF DEFECT WORDS IN TD 

sIS THIS A DUMMY (0) ENTRY ? 

BR IF NO 


6 
sMAKE DUMMY (0) ENTRY A NULL (140000) ENTRY 
sDONE ALL WORDS YET ? 


SEQ 0056 


FS 
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SEQ 0057 
MANUAL INPUT ROUTINE 

a 012536 003371 BGT 10$ sBR IF NO 
96 012540 013700 002226 MOV ERRMAX ,RO sSETUP RETRY COUNT 
97 012544 004737 026236 JSR PC,SAVETD sSAVE TO WRITE BUFFER JUST INCASE THERE 
98 sIS RETRY ATTEMPT. 
99 012550 004737 026274 128: JSR PC,RESTTO sNOW RESTORE THE TD BUFFER 
100 012554 004737 021152 JSR PC ,WRITTD sCALL_ THE WRITE TD SUBROUTINE 
101 012560 000421 BR 1S$ sRETURN HERE IF EXCEEDED RETRY LIMIT 
102 sELSE RETURN HERE, NO ERROR 
103 01 012737 177777 002252 MOV @-1,SUPRSS sSUPRESS THE ERROR MESSAGE OUTPUT 
104 012570 005300 138; DEC RO sOID WE EXCEED RETRY ? 
105 012572 002414 BLT 158 sBR IF YES 
106 012574 003002 BGT 14% sBR IF NO 
107 012576 005037 002252 CLR SUPRSS sALLOW ERROR MESSAGE TO BE OUTPUT 
108 012602 004737 021440 148: JSR PC,READTO sCALL THE READ TD SUBROUTINE 
109 012606 000770 BR 13% sRETURN HERE IF EXCEEDED RETRY LIMIT 
110 sELSE RETURN HERE, NO ERROR 
111 012610 012737 006170 002360 MOV @CHANGE , TEXT sLOAD TEXT WITH ADDRESS OF MESSAGE 
112 012616 004737 017240 JSR PC, TOOUMP sGO DUMP THE TRACK DESCRIPTOR 
113 012622 000401 BR 16% 
114 012624 005725 158: TST CRS )+ sADJUST RS TO SKIP FORMAT TRACK, ON RETURN 
115 012626 005037 002252 168: CLR SUPRSS sALLOW ERROR MESSAGE 10 BE OUTPUT 
116 012632 012601 MOV (SP)+,R1 s3sPOP STACK INTO R1 

012634 012600 MOV (SP)+, s3sPOP_ STACK INTO RO 
117 sPRINT ‘DO YOU WANT TO MODIFY ANYMORE TD‘S (L) WN ?' 
118 012636 1044435 TRAP CS8GMAN 

012640 000404 BR 100128 

012642 002416 -WORD MORETO 

012644 0001350 -WORD TSCODE 

012646 013042 -WORD MESG47 

012650 000001 -WORD 1 

012652 100128: 
$34 012652 000207 Ts PC s TAKE THE RETURN 
124 012654 103 131 114 MESG38: .ASCIZ /CYLINDER ADORESS/ 
125 012675 124 122 101 MESG39;: .ASCIZ /TRACK ADORESS/ 
126 012713 127 117 122 MESG4O: .ASCIZ /WORD IN SECTOR/ 
127 012732 127 117 122 MESG41: .ASCIZ /WORDS FROM INDEX/ 
1286 0127535 123 105 103 MESG42: .ASCIZ /SECTOR ADDRESS/ 
129 012772 124 104 040 SG43: .ASCIZ /TD WORD@3/ 
130 013004 124 104 O40 MESG44;: .ASCIZ /TD WORDO4/ 
13° 013016 124 104 040 MESG45: .ASCIZ /TD WORDOS/ 
132 0130350 124 104 040 : .ASCIZ /TO WORDO6/ 
its 013042 104 117 040 MESG47: .ASCIZ /D0 YOU WANT TO MODIFY ANYMORE TD’'S/ 
135 - EVEN 


CZRIKBO 
PROGRAM 


KF OOOO a whore 


pene 


G5 
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UTILITIES 


013106 
013106 
013112 
013114 
013120 
013122 
013126 
013130 
013134 
013136 


012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
000207 


112777 
012602 
000207 


000372 
002116 
177772 
177756 


000040 
002434 
167272 
167264 


167302 
167274 


002272 


167204 


-SBTTL PROGRAM UTILITIES 


i FL PSASEHHHAHAEAEASEAEEASEHEAEEREEEAEESESEDESEEEEEEEEEEEESEEEEEEEEEEEEEREREEEEREOEEE 


sTHIS MODULE IS USED TO STALL IN LOOPS WHICH MUST WAIT FOR THE RPO7 


THE WAIT IS A FIXED TIME PERIOD, AND CANNOT BE CHANGED 
THERE ARE NO SIDE EFFECTS. 


SEIZE 


FL SSSAAASASASESSSSSSEEHEASEEEASEHEEEEEESEEEEEESEEESEEALESEEESEEEEEEEEEEESEEEOEEESE 


;MICROPROCESSORS . 
; DYNAMICALLY. 
;CALL 
: MODULE IS CALLED BY: 
WAIT: 
MOV #250. .(PC)+ 
MOV L#DLY,(PC)» 
DEC -6(PC) 
BNE .-4 
DEC ~22(PC) 
BNE . -20 
RTS 


sNOW RETURN TO MAIN 


FLSESMERALRAREHADALMSEEARERAESHHEEAREAAAREATEAREHAHRSEEHLAREAARAEHADOARE HEARERS AHRE 


sTHIS MODULE CHECKS DRY (RPDS-BIT#7) AGAINST A TIMED VALUE. 


IF ROY IS NOT 


sTRUE WITHIN THIS TIME PERIOD, ALL FURTHER ACTION IS ABORTED. 


34 
sINPUTS ARE: 


ORIVE 


5 
sOUTPUTS ARE: RPCS2, RPDS, RPAS 


e 
i THIS MODULE IS CALLED BY: RESET 


8 FE SSSOSSSHSSSSESSSSASHSESSESHSSSESESESSASESESEASSSSESESHESEHESSSESENSSEEEEEEEEEEEEEEE 


SEIZE: BIS 
MOV 


1%: TST 


2s: 
3%: RTS 


@CLR , GRPCS2 
ORVNO , BRPCS2 
@RPOS 


@3 , ERRMSK 
SUPRSS, -( SP) 
SUPRSS 

PC, SAVRPR 

PC ,ERRORS 
(SP )+, SUPRSS 
0377, GRPAS 
(SP)+,R2 

PC 


sCLEAR THE MASSBUS 

sRELOAD THE DRIVE NUMBER 

sIS THIS ORIVE SEIZED BY ANOTHER PORT? 
sNO, JUST TAKE RETURN 

1 ae ORIVE REQUEST 

‘ 

sL0AD R2 WITH AN OVERAL ITERATION COUNT 
sNOW WAIT FOR THE OTHER PORT TO RELEASE 
sNOT YET IF RPDS = 0 


sAND REDUCE THE ITERATION ee 
sLOG ‘ORIVE HUNG, DRY NOT SET ERROR’ STATUS 
ON STACK 


sALLOW ERROR MESSAGE TO BE OUTPUT 
sSAVE RPO7 REGISTERS ON ERROR 
sAND REPORT THE ERROR 

ssPOP STACK INTO SUPRSS 


sCLEAR ANY UNWANTED ATTENTION BITS 
sRESTORE R2 
sAND TAKE RETURN 


SEQ 0058 


HS 
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OBnaO Vi bwfor 


16 013276 
17 013302 


004737 
012777 
012737 
004737 
000207 


013140 
000021 


i LP#AAAROO OOO EEEEDESEEEEEEEEREEAEEEEEEEEEREESESEEDEEEEESESEEEEREEEEEEDEEEEES 
sTHIS MODULE, WHEN CALLED DOES A CLEAR TO THE DRIVE IT IS DEPENDENT ON THE 
sMODULE "SEIZE" TO RELOAD THE DRIVE NUMBER AFTER THE RESET. 


3@ 

s INPUTS ARE: NONE 

: 

sOUTPUTS ARE: RPCS1, RPOF, RPMR1 
34 

sTHIS MODULE IS CALLED BY: RETRY 


3 FE SOSSASESAEEEAEEEEEAEEEEEHAEEEEESEESEEEEEEEEEDEEEEEEEEEEEEEEEEEEEEEEEEOEEEEREDE 


RESET: JSR PC, SEIZE sNOW GET THE DRIVE 
MOV @READIN,@RPCS1 ;D00 A READ IN PRESET 
MOV @FMT16,OF FSET sSET UP FOR 16 BIT WORD 
JSR PC READY sWAIT FOR DRIVE READY NOW! 
PC sNOW RETURN TO MAIN 


SEG 0059 


[5 
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RETRY 


ODBATUWS WE 


002226 


.SBTTL RETRY ROUTINE 


bE POOREEEEEEESEESEEEEEEEEEEEAERESEEEEEEEEESEEESEDREEEEEDEEREREREREEEEEEERESOEEES 
sTHIS ROUTINE MAINTAINS THE RETRY COUNTER. RETRY MAXIMUM IS ‘ERRMAX'. AN 
sERROR WILL BE REPORTED IF THE MAXIMUM RETRY COUNT IS EXCEEDED. 


3% 
TINPUTS ARE: — ERRMSK 
}OUTPUTS ARE: ERRMSK, RTYCNT, ERRTTL 


5 JSR PC, RETRY sCALL THE ROUTINE 
aeonds sRETURN HERE IF EXCEEDED MAX RETRY LIMIT 
sELSE RETURN HERE, IF RTYCNT >= 1 THEN ERROR 
IF RTYCNT = O THEN NO ERROR 


* 
sTHIS MODULE IS MAINLY CALLED BY: MAKTRK, DRVINI, ROBSF, WRTBSF, WRITTD, 
READTD, HOSCAN, DASCAN 


i 
3 FE SSPORSASESASASESESESELESEEESASESEEESEERESEEASEEEEEEEEEEEEEEEESEEEASEEEEEEEEEEEEE 


RETRY: ae ITCNT sDECREMENT pine Hay THIS COMMAND 


#2,(SP) sADJUST FOR GOOD RE 
JSR PC, SAVRPR sSAVE RPO7 REGISTERS 
TST ERRMSK sOIO0 WE GET ANY ERRORS ? 
BEQ 1% s8R IF NO 


INC RTYCNT TINCREMENT THE LOCAL RETRY COUNTER AND 

INC ERRTTL sTHE TOTAL ERROR COUNTER 

CMP RTYCNT , ERRMAX :DID WE EXCEED THE MAX RETRY LIMIT ON ERROR ? 
BLO 2s 3BR IF NO 

SUB #2,(SP) sADJUST FOR EXCEEDED RETRY LIMIT RETURN 

JSR PC.ERRORS sREPORT THE ERROR NOW! 


1%: CLR RTYCNT sRESET RETRY Ay ~ To 0 
TST ERRMSK sOIO WE GET AN ERROR ? 
BEQ 3$ sBR IF 

2s: CLR ERRMSK ;RESET ERROR STATUS AND 
JSR PC RESET sRESET THE MASSBUS. 

3%: RTS PC sEXIT 


SEQ 0060 


J5 
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ERROR HANDLER 


O@Bad VI awfr 


013514 


013516 
013516 
013520 
013522 
013524 


-SBTTL ERROR HANDLER 


2 FSSSASAASAAAHESAESEEAEHEAAREHAREREEEEEEEEEEEEEERADESEEEAEEEHEDEEESEEEEEESEEEEEREDE 


sTHIS ROUTINE LOOKS AT ERRMSK, AND DECODES THE BIT MASK BITS 0-15 ARE 


sAPPLICABLE. 
3% 

s INPUTS ARE: 
: 

sOUTPUTS ARE: 


34% 
:THIS MODULE IS CALLED BY: RETRY 


ERRMSK 


ERRMSK, RTYCNT, ERRTTL 


8S SSSAHHAESASESSEAAEESEAALESESADERASEESEAEEHOEEEAEEAEESEEEEEESEEEEESEEEEEEEEEEEDE 


ERRORS: TST 
BEQ 


18%: 


2s: INC 
38: 


4%: RTS 
5$: ERRHRD 


(SP)+,R2 
(SP )-+ oR1 
PC 


16,EM16,ERRS 
CSERHRD 

16 

EM16 

ERRS 


sDID WE GET ANY ERRORS? 
;IF ERRMSK = 0, NO! 
S ALLOW ERROR MESSAGES ? 


sGET THE TOP OF THE ERROR yy FILE 
tod UP THE ERROR NUMBER 

$ 

s TAKE BRANCH OF DS - REPORT FIND NOW! 

s;GET NEXT ERROR POSITION 

sMOVE THE DISPATCH POINTER TO NEXT MESSAGE 
ge A THE END OF ERROR TABLE ? 

H 


sADD ONE TO THE ERROR TOTAL AND 
sREPORT THE FINF NOW. 


ssPOP STACK INTO R2 
J5 #4 STACK INTO R1 
: 


sTO NOT READABLE THRU 


sRELOCATION ERROR sERRMSK=1 
sRETURN 
sCOMPOSITE ERROR sERRMSK=2 
sRETURN 
sORIVE HUNG sERRMSK=3 


SEQ 0061 


c 
E 


KS 
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RROR 


70 


013526 


013530 
013530 


©90756 


3$ 
5,EMS,ERRO 
SERHRD 


11,EM11,ERRS 
CSERHRD 

11 

EM11 

ERRS 

3% 
1,EM1,ERR1 
CéERHRD 


sRETURN 
sORIVE WRITE LOCKED 


RETURN 
sDRIVE OFFLINE 


sRETURN 
sUNEXPECTED ATTN 


sRETURN 
sWRITE CHECK ERROR 


sRETURN 
sFORMAT VERIFY ERROR 


;RETURN 
3TD ADDRESS INCORRECT 


sRETURN 
3TD FORMAT INCORRECT 


sRETURN 
sDRY DION’ T RESET 


sRETURN 


;ERRMSK =4 


sERRMSK=5 


sERRMSK =6 


sERRMSK=7 


sERRMSK=10 


sERRMSK=11 


sERRMSK=12 


s;ERRMSK=13 


SEQ 0062 


Ee 


L5 
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71 

72 013650 ERRHRD 13,EM13,ERRO + TRANSFER ERROR sERRMSK=14 
013650 104456 TRAP CSERHRD 
013652 000015 -WORD 13 
013654 007326 -WORD EM13 
013656 007722 -WORD ERRO 

as 013660 000701 BR 3$ sRETURN 

75 013662 ERRHRD 14,EM14,ERRO sSPECIAL CONDITION sERRMSK #15 
013662 104456 TRAP CSERHRD 
013664 000016 WORD 14 
013666 007351 WORD EM14 
013670 007722 -WORD ERRO 

4 013672 000674 BR 3$ RETURN 

78 013674 ERRHRD 15,EM15,ERRO sRANDOM HEADER ERRORS  ;ERRMSK=16 
013674 104456 TRAP CSERHRD 
013676 000017 WORD 1 
013700 007377 EM15 
013702 007722 -WORD ERRO 

ba 013704 000667 BR 3% sRETURN 

81 013706 ERRHRD 17,EM17,ERRO sUNRECOVERABLE ERROR sERRMSK=17 
013706 104456 TRAP CSERHRD 
013710 000021 WORD 17 
013712 007531 WORD EM17 
013714 007722 -WORD ERRO 

. 013716 000662 BR 3% sRETURN 

84 013720 ERRHRD 20,EM20,ERRO sRANDOM WRT CHK ERRORS ;ERRMSK=20 
013720 104456 TRAP CSERHRD 
013722 000024 WORD 
013724 007576 WORD ENM20 
013726 007722 -WORD ERRO 

34 013730 000655 BR 3% sRETURN 

90 013732 68: 


MS 
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OBIT VSwtr 


013732 
013736 


013772 
013776 


014000 
014004 


014114 


002352 
000055 


040000 
100000 
000155 


002410 
000055 
177776 


002410 
000002 
177776 


100000 


140000 
140000 
000066 
000066 


031414 


031414 


031414 


031414 


-SBTTL ADJUST DEFECT TO TRACK DESCRIPTOR 

§ FE PSSEREAAAEREAREASESAEESEREEEERERESEERESEAESEAEEEESEEEEEREEEREREEESEEEEEEEAEEEREDRE 
:THIS MODULE IS USED TO ADJUST ANY DEFECT DATA FOUND WHICH OCCURS SUBSEQUENT 
;TO A TO MOVED AND/OR A HOR O MOVED TRACK DESCRIPTOR VALUE. IT ALSO COUNTS 

s THESE DEFECTS IN THE OVERALL COUNTER. 

Te 

sINPUTS ARE: BUFFER CALLED ‘TOCPY3' (WHICH IS POINTED TO BY R4) 


i 
sOUTPUTS ARE: ODEFSEC, BUFFER CALLED ‘TOCPY3' (WHICH IS POINTED TO BY R4) 


34 
3;CALL 
3 JSR PC, TOCASE 
iF SSSAAAAAHAHEASAASASERASEESAEESERAEEEEEREREAEERERELASEASEEEEASEESESEAESEEAARESREAES 
TOCASE: MOV @TOLMTS,RO ;GET POINTER TO TO DEFECT LIMITS 
MOV @<TD+G2>,R2 sINCLUDE T:!IS IN THE CALCULATION 
CMP CR4),CRO)+ sWAS TO MOVED ? 
BLE 2s 36R IF YES 
BIT @681T14, TOWRD1 :TO BIT ALREADY SET ? 
BNE 2s ;6R IF YES 
CMP + i CRO)+ sWAS HOR O MOVED ? 
BLE 368R IF YES 
BIT eerris, TOWRD1 sHOR O BIT ALREADY SET ? 
BNE ;8R IF YES 
= #<G1+T0+62>, eR2 ;INCLUOE THIS IN THE CALCULATION 
sACCOUNT FOR HEADER O MOVED 
18: DEC DEF TRK ;ONE LESS DEFECT TO GO ON THIS TRACK 
SUB @<TD+G2>,R2 S INCLUDE THIS IN THE CALCULATION 
MOV -2(RO), -C SP) ;GET HOR O MOVED LIMIT 
SUB CR4)+, CSP) sFIND DIFFERENCE, UPDATE POINTER TO NEXT DEFECT 
~\ | hc ;AND ADD DIFFERENCE TO THIS CALCULATION. 
:ACCOUNT FOR TRACK DESCRIPTOR MOVED 
2s: DEC DEF TRK sONE LESS DEFECT TO GO ON THIS TRACK 
MOV 2CR4), -(SP) ; SAVE NEXT DEFECT VALUE 
MOV 2CRO ), -(SP) sGET TO MOVED LIMIT 
SUB (R4)>, ¢ SP) sFIND DIFFERENCE, UPDATE POINTER TO A. ay DEFECT 
ADO CSP), R2 sAND ADD DIFFERENCE TO THIS CALCULATION. 
SUB (SP)+, (SP) ;ALSO, TAKE ANY DIFFERENCE FROM NEXT DEFECT 
TST CRO)+ s UPDATE LIMIT POINTER TO LOOK FOR HDR O MOVED 
CMP CSP)+,CRO)+ sWAS HOR O ALSO MOVED ? 
BLE 1$% 3;6R IF YES 
BIT @68IT15, TOWRD1 sHOR O BIT ALREADY SET ? 
BNE is ;8R IF YES 
38: CMP CR4), @NULL sANY MORE DEFECTS ? 
BEQ $ s8R NO 
BIT #81IT14!61IT15, TOWRD1 s0ID TO AND/OR HRD O REALLY GET MOVED ? 
BNE 4% 3;B8R IF YES 
ae 9<0678> Re sEXCLUDE HALF A SKIP IN THE CALCULATION 
4$: ADD @<DS/2>,R2 sINCLUDE HALF A SKIP IN THE CALCULATION 
zt jo ~ Smead sSURTRACT ALONG WITH SKIP DEFECT INFO 


SEQ 0064 


teat 


7 
NS 
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1 
2 FE ARARAAAAERAEAEAAERERAAEREEAAEEEEEEEEEEEEEARERAEEAAREBAEEEEEEEEAEEEREREEEREEREERE 
3 ;THIS MODULE IS USED TO CHECK FOR ANY MINIMUM DATA SEGMENT VIOLATIONS 
: sPRODUCED By ‘CALCTD’. 
3% 
6 ; INPUTS ARE: FROM (RS), WHICH IS A BUFFER CALLED ‘'TDSBLK’, FROM (R1), 
? : WHICH IS A BUFFER CALLED ‘DELTA’. CONSTANTS USED ARE THOSE 
8 ; WHICH DETERMINE A LEADING OR TRAILING DATA SEGMENT DEFECT 
m ; SKIP VIOLATION. 
H 
il ;OUTPUTS ARE: TO CRS), WHICH IS A BUFFER CALLED ‘'TOSBLK', TO (R1), WHICH 
12 3 IS A BUFFER CALLED ‘DELTA’, TO (R4), WHICH IS A BUFFER 
2 3 CALLED ‘TOCPY3’. 
14 3:* 
15 sTHIS MODULE IS CALLED BY: CALCTD 
16 § S SPAARHAAHAERAEAAEHESEAAAEAREEAEAEAEREEAEEEESEEREEEEEAAREEEEEEEEEEEEEEEEEEEEEEEEED 
17 
18 014116 010537 002250 CHKSEG: MOV RS, TEMPA sSAVE POINTER TO THIS DEFECT 
19 014122 010046 MOV RO, -C(SP) 33PUSH RO ON STACK 
014124 010246 MOV R2,-CSP) :3PUSH R2 ON STACK 
20 014126 005000 CLR RO sRESET RO CSEGMENT LEADING VS TRAILING) 
- 21 014130 012701 002570 MOV @DELTA,R1i sGET POINTER TO BEGINNING TO DELTA TABLE 
22 014134 013746 002406 MOV DEF SEC, -( SP) sGET THE @ OF DEFECTS IN THIS SECTOR 
23 014140 005745 1%: TST -CRS) ;BACK UP THE DEFECT POINTER FOR THIS SECTOR 
24 014142 005316 - DEC CSP) ;DONE ALL DEFECTS FOR THIS SECTOR YET ? 
25 014144 003375 6GT 1$ ;6R IF 
26 014146 005726 TST (SP )+ ;RESTORE THE STACK 
27 sSETUP THE LEADING MINIMUM DATA SEGMENT VALUES 
28 014150 012737 000042 002412 MOV #34. ,MINSEG sMIN. PARTITION FOR DATA SEGMENT 
29 014156 012737 000064 002414 MOV #52. ,MAXSEG sMAX, PARTITION FOR DATA SEGMENT 
30 014164 011502 MOV CRS),R2 sGET BEGINNING OF DEFECT 
31 sNOW LOOK TO SEE IF THE BEGINNING OF THE DEFECT 
32 sFALLS WITHIN GAP 3, BUT DON’T ALLOW THE DEFECT 
33 sSKIP TO START ON THE LAST WORD OF GAP 3 
34 014166 020237 002412 CMP R2,MINSEG sIS BEGINNING OF DEFECT IN GAP 3 ? 
35 014172 103425 BLO 5$ ;6R IF YES 
36 014174 000404 BR 4% 
37 014176 061502 2s: ADO CRS),R2 sADD BEGINNING OF DEFECT TO CALCULATION 
38 sNOW LOOK TO SEE IF THE BEGINNING OF THE 
39 DEFECT FALLS WITHIN THE MINIMUM DATA SEGMENT 
40 014200 020237 002412 3$: CMP R2,MINSEG 3IS BEGINNING OF DEFECT IN MINIMUM DATA SEGMENT ? 
41 014204 101420 BLOS 5% 38R IF NO 
42 9014206 020237 002414 4s: CMP R2,MAXSEG :IS BEGINNING OF DEFECT IN MINIMUM DATA SEGMENT ? 
43 014212 101030 BHI 6$ ;8R IF NO 
44 014214 005711 TST CR1) sWAS THIS DEFECT PREVIOUSLY ADJUSTED ? 
4S 014216 001013 BNE S$ s6R IF YES 
46 014220 013746 002414 MOV MAXSEG, -C SP) 33PUSH MAXSEG ON STACK 
47 014224 160216 SUB R2,(SP) sFIND THE SKEW VALUE AND 
48 014226 061615 ADD CSP),CRS) sCORRECT THIS DEFECT VALUE 
49 014230 012611 ' MOV (SP)+,C(R1) sSAVE THE VALUE IN THE DELTA TABLE 
50 014232 026427 000002 140000 CMP 2(R4), ONULL sANY MORE DEFECTS ? 
51 014240 001402 BEQ 5% :6R IF NO 
os 014242 161164 000002 SUB (R1),2CR4) sREMOVE THE DELTA VALUE FROM NEXT DEFECT 
54 014246 062737 000154 002412 5%: ADD @<DS>,MINSEG sADD A DEFECT SKIP TO THE MIN. SEGMENT VALUE 
55 014254 062737 000154 002414 ADD @<DS> ,MAXSEG sAND A DEFECT SKIP TO THE MAX. SEGMENT VALUE 


56 014262 022521 CMP CR5)+,CRAD+ sPOP THE DATA AND DELTA FILES 


Br 
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57 014264 020537 002250 CMP RS, TEMPA sDONE CHECKING DATA SEGMENTS YET ? 
58 014270 001415 BEQ 7$ sBR IF YES 
44 014272 000741 BR 2s sELSE KEEP GOING... 
61 014274 005700 63: TsT RO sHAVE WE LOOKED AT THE TRAILING DATA SEGMENT YET ? 
62 014276 100763 BMI S$ s6R IF YES 
63 sSETUP THE TRAILING MINIMUM DATA SEGMENT VALUES 
64 014300 062737 000360 002412 AOD #240. ,MINSEG sMIN. PARTITION FOR DATA SEGMENT 
65 014306 062737 000360 002414 ADD @240. ,MAXSEG sMAX, PARTITION FOR DATA SEGMENT 
66 014314 005100 COM RO sMARK THIS EVENT 
67 014316 000730 BR 3% sTRY AGAIN... 
68 014320 78: 
014320 012602 MOV (SP)+,R2 3sPOP STACK INTO R2 
014322 012600 MOV (SP)+,RO +3POP STACK INTO RO 
69 014324 000207 RTS PC ; TAKE THE RETURN 


a 


Ch 
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57 014516 005037 015170 CLR TMOLTA sTHE TEMP. ACCUMULATIVE DELTA COUNTER. 


i .SBTTL TRACK DESCRIPTOR CALCULATION MODULE 
3 t FSSSHSSHESEHEEEESEESSEESEEEEEHEHSEEHADEEESESEEEESEEESEEEEEAESEHEEEEEEEEEESEEEEEOEESEE 
4 sTHIS ROUTINE COMPUTES THE ACTUAL OFFSET OF THE TD WORD, AND DETERMINES IF THE 
5 sDEFECT LIES WITHIN THE CURRENT SECTOR. IF THE DEFECT DOES, THE APPROPRIATE 
* sCALCULATION IS MAPPED AND PREPARED FOR TRANSFER TO THE DRIVE. 
3¢ | 
8 s INPUTS ARE: TOWRD1 - TOWRDG6, DS, PARTBL, SIZE OF SECTOR (HDR+G3+DATA+G4) | 
3 
10 sOUTPUTS ARE: TOSBLK, RO - RS, DEFSEC, DEFTRK, TOCPY3 - TOCPY6, 
i ; DEF1 - DEF4, DEFCNT | 
34 
13 sTHIS MODULE IS CALLED BY: MAKTRK 
14 3 SMASH HAHHHAAHSSERASHEHOEEADEEEEEHAEHEEEHOHEADEOOHESEEESCHSESHAEEEESEEKEESREEEEHEREEEE 
15 
16 014326 005037 002410 CALCTO: CLR DEF TRK sRESET THE @ OF DEFECTS PER TRACK COUNTER 
17 014332 012705 033614 MOV @TOSBLK,RS POINT TO THE TO OUTPUT BLOCK 
18 014336 013737 002230 002232 MOV ENDPTR,ENDTAB ;GET THE BUFFER SIZE LIMIT 
19 014344 006337 002232 ASL ENOTAB PUT THE LIMIT ON A WORD BOUNDARY 
20 014350 062737 033614 002232 ADO @TOSBLK,ENDTAB ;AND SET THE LIMIT 
21 014356 012704 031430 18: MOV @TOCPY1,R4 ;RESTORE POINTER TO 1ST TO WORD | 
22 014362 013724 031414 MOV TOWRD1, (R4)« sSAVE TD WORD @1 
23 014366 013724 031416 MOV TOWRD2 , (R4)> sSAVE TD WORD 02 
24 014372 013724 031420 MOV TOWRDS, (R4)+ sSAVE TO WORD @3 
25 014376 013724 031422 MOV TOWRD4 ,(R4)> sSAVE TD WORD 04 
26 O1 013724 031424 MOV TOWRDS, (R4)« sSAVE TO WORD @5 | 
27 014406 013724 031426 MOV TOWRD6 , (R4)+ sSAVE TO WORD 06 
28 014412 012704 031434 MOV eTOCPYS,R4 sRESTORE POINTER TO 3RD TD WORD (1ST DEFECT) | 
29 014416 022427 140000 CMP (R46, @NULL sANY DEFECTS ON THIS TRACK ? 
30 014422 001007 BNE 38 ;8R IF YES | 
31 014424 2%: sNO MORE DEFECTS ON THIS TRACK, SO NULL THE 
32 SKIP DISPLACEMENT WORDS IN EACH OF THE 
33 014424 012725 140000 Mov @NULL , (CRS )> sREMAINING SECTORS. 
34 014430 020537 002232 CMP RS,ENDTAB }OONE WITH THE TABLE YET ? 
35 014434 003773 BLE 2% :BR IF NO 
36 014436 000137 015166 wy) 178 sEXIT, GO WRITE FORMAT FOR THIS TRACK 
ay iNOW CORRECT EACH SKIP TO THE BEGINNING OF | 
38 sTHE DEFECT, SO IT CAN BE INSERTED INTO IT'S 
39 sAPPROPRIATE SECTOR. 
40 014442 005237 002410 38: INC DEF TRK sACCUMULATE @ OF DEFECTS ON THIS TRACK | 
41 014446 023727 002410 000004 DEF TRK, @4 sO0ID WE REACH LAST DEFECT ? 
42 014454 103003 BHIS 48 s8R IF YES 
43 014456 022427 140000 (R4)+, @NULL sANY MORE DEFECTS ? | 
44 014462 001367 BNE Re 18R IF YES 
45 sNOW GO LOOK TO SEE IF THE TD AND/OR HDR O HAVE 
46 :BEEN MOVED, SO THE REMAINING DEFECTS CAN BE 
a7 sADJUSTED ACCORDINGLY. | 
48 014464 012704 031434 4s: MOV @TOCPYS,R4 sRESTORE POINTER TO SRD TD WORD (1ST DEFECT) 
49 014470 004737 013732 JSR PC, TOCASE sLOOK FOR A TO AND/OR HOR O MOVED 
SO 014474 021427 140000 CMP (R4), @NULL sANY MORE DEFECTS ? 
51 014500 001751 BEQ 28 :6R IF NO 
52 sNOW FIND WHICH SECTOR THE DEFECT SHOULD BE 
53 INSERTED INTO. 
54 014502 162714 000066 SuB @<0S/2>,(R4) sCORRECT 1ST DEFECT TO THe BEGINNING OF DEFECT 
55 014506 105037 002245 S$: CLRB SAMSEC sRESET THE SAME SECTOR FLAG, 
56 014512 005037 002406 CLR DEF SEC sTHE @ OF DEFECTS PER SECTOR COUNTER AND | 
| 
| 


= on ee 


DF, 


CZRIKBO RPO? FMTR/SCANNER MACRO V04.00 1-DEC-83 09:58:43 PAGE 30-1 SEQ 0068 
TRACK DESCRIPTOR CALCULATION MODULE 

58 014522 012700 000004 MOV 04,RO ;GET @ OF ENTRIES 

59 014526 012701 002570 MOV ODELTA,R1 :GET POINTER TO BEGINNING OF DELTA TABLE 

60 014532 005021 6%: CLR (Ri)e INITIALIZE THE TABLE 

61 014534 005300 DEC RO 1 DONE YET ? 

62 014536 003375 BGT 63 F NO 

63 014540 012701 002570 MOV ODELTA,R1 }GET POINTER TO BEGINNING OF DELTA TABLE 

64 014544 005714 TST (R4) sANY MORE DEFECTS ON TRACK ? 

65 014546 003726 BLE 2% :6R IF NO 

66 014550 012700 000517 MOV @<HOR-GS+DATA+G4> RO ;GET THE SIZE OF SECTOR 

67 014554 160014 SUB RO,(R4) 11S THE DEFECT IN THIS SECTOR ? 

68 014556 003166 BGT 16% :8R IF NO 

69 014560 060014 ADD RO,C(R4) HYES, RESTORE DEFECT 

70 1NOW FIND WHERE THE BEGINNING OF THE DEFECT 

71 sFALLS WITHIN THIS PARTICULAR SECTOR 

72 014562 012703 002336 MOV OPARTBL .R3 iGET POINTER TO BEGINNING OF SECTOR PARTITION TABLE 

73 014566 012302 MOV (R3)+,R2 :GET THE 1ST PARTITION 

74 014570 021402 7%: CMP (R4),R2 31S THE DEFECT IN THIS PART OF THE SECTOR ? 

75 014572 101410 BLOS 6s«98 :8R IF YES 

76 014574 021400 CMP (R4),RO IIS THIS DEFECT AT THE SECTOR LIMIT ? 

77 014576 001402 BEQ 8s 36R IF YES 

78 014600 062302 ADO (R3)+,R2 TEXTEND THE PARTITION RANGE IN THE SECTOR 

79 014602 000772 BR 78 sAND TRY AGAIN 

80 014604 005314 8$: DEC CR4) sFOUND DEFECT AT END OF SECTOR, REDUCE BY ONE 

81 014606 005237 002406 INC DEF SEC 3ONE MORE DEFECT FOUND IN THIS SECTOR 

82 014612 000425 BR 108 TO FACILLITATE RPO? MICROCODE TESTING 

84 014614 005237 002406 98: INC DEFSEC sONE MORE DEFECT FOUND IN THIS SECTOR 

85 014620 105737 002245 TSTB SAMSEC 1IS THIS THE 1ST DEFECT IN THIS SECTOR ? 

86 014624 001420 BEQ 108 :0R IF YES 

87 sNOW SEE IF THE BEGINNING OF THIS DEFECT FALLS 

88 tWITHIN THE NEXT MINIMUM DATA SEGMENT OF THIS 

90 014626 021427 000176 CMP (R4),@<DS+MSEG> ;IS DEFECT WITHIN NEXT MINIMUM DATA SEGMENT ? 

91 014632 101015 BHI 108 :8R IF NO 

92 014634 012746 000176 MOV @<DS+MSEG>, -(SP) 13PUSH @<DS+MSEG> ON STACK 

93 014640 011615 MOV (SP),CRS) ;SAVE THIS VALUE IN THE DEFECT TABLE 

94 014642 161416 SUB (R4), (SP) sGET DELTA FOR SKEW FORWARD TO THE MINIMUM DATA SEGMENT 

95 014644 012621 MOV (SP)+,(R1)+ sSAVE THE VALUE IN THE DELTA TABLE 

96 014646 026427 000002 140000 CMP 2(R4), @NULL sANY MORE DEFECT ? 

97 014654 001431 BEQ 128 18R IF NO | 

98 014656 166164 177776 000002 SUB -2(R1),2(R4) sADJUST THE NEXT DEFECT BY DELTA 

2 014664 000425 BR 12% sNOW, GO AND SET THE STATUS 

101 014666 011415 108: MOV (R4),(RS) sLOG THIS NON-CRITICAL INFORMATION 

102 014670 105737 002245 TST8 SAMSEC IIS THIS THE 1ST DEFECT IN THIS SECTOR ? 

103 014674 001021 BNE 128 18R IF NO 

104 sNOW SEE IF THE BEGINNING OF THIS DEFECT FALLS | 

105 sWITHIN THE HEADER OF THIS SECTOR 

106 014676 021527 000010 CMP (RS), @<HDR> sIS THE DEFECT WITHIN THE HEADER ? ' 

107 014702 101014 BHI 118 s8R IF NO 

1086 014704 012746 000010 MOV @<HUR>, -(SP) 13PUSH @<HDR> ON STACK 

109 014710 161516 SUB (RS), (SP) sFIND THE SKEW VALUE AND 

110 014712 061615 ADO (SP),C(RS) sCORRECT THIS DEFECT VALUE 

111 014714 012621 MOV (SP)+,(R1)> sSAVE THE VALUE IN THE DELTA TABLE 

112 014716 026427 000002 140000 CMP 2(R4), NULL sANY MORE DEFECT ? 

113 014724 001403 BEQ 118 s8R IF NO 

114 014726 166164 177776 000002 SUB -2(R1),2(R4) sADJUST THE NEXT DEFECT BY DELTA | 
BS 


i 


E6 
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014734 


014740 
014742 


162715 


900006 


014116 
002410 


015170 


015170 


000154 


000154 
000154 


140000 


118: 


12$: 


13%: 


14%: 


158%: 


168%: 


178: 


SUB 


3298383 38e25 *2558 


D 
~« 
w 


@<HOR -2>,(RS) 


CR4)¢,R2 
@<DS>,R2 


CR4),@<DS> 
148 
phe 


8 
SAMSEC 
7% 


DEF SEC 
@<0S>,CRS) 
2(R4), ONULL 
128 

@<DS>, -(SP) 
(R4),CSP) 
CSP),2CR4) 
CSP )+,CR1 D+ 
128 


RO, CR4) 
DEF SEC 


DEF SEC 
16% ,DEFSEC 
@DEF SEC 


sNOW MAKE THE REFERENCE TO THE BEGINNING 
sOF THE 1ST HEADER CRC WORD 
sANO POINT TO THE NEXT DEFECT ENTRY 
sMOVE THE OUTPUT POINTER UP ONCE! 
1GO CHECK FOR MINIMUM DATA SEGMENT VIOLATIONS 
sONE LESS DEFECT TO GO ON THIS TRACK 

RO, TRACK RECORD IS COMPLETE 


3SO THEY CAN BE SUBTRACTED FROM 
sTHE BALANCE OF THE SECTOR REMAINS. 
TA’'S ACCUMUMLATED ? 


sMAKE THE DIFFERENCE POSITIVE 

sAND ADO IT TO OLD ACCUMULATED TEMP. DELTA 
sSUBTRACT DELTA FROM END OF SECTOR BOUNDRY AND 
sFROM SECTOR PARTITION VALUE. 

sMAKE THE END OF SECTOR BOUNDRY RELATIVE TO 

1 THE PREVIOUS DEFECT AND ADO A SKIP TO EXTEND 
s THE END OF SECTOR BOUNDRY. 

sMAKE THE SECTOR PARTITIONS RELATIVE TO THE 
sPREVIOUS DEFECT AND ADD A SKIP TO EXTEND 

i THE PARTITION RANGE. 

sWILL THIS DEFECT BE STACKED ? 


s6R IF YES 
‘ + ee OF DEFECT IN CURRENT SECTOR ? 


i8R IF AT THE END OF THE CURRENT SECTOR 
sMARK THIS DEFECT AS BEING IN SAME SECTOR 
sNOW SETUP TO ADJUST THE SECTOR FOR STACKED 
;DEFECTS 
sONE MORE DEFECT FOUND IN THIS SECTOR 
iL OG THE STACKED DEFECT INFORMATION 

ANY MORE DEFECTS ? 
18R IF NO 
sVALUE OF STACKED SKIP 
sSUBTRACT CURRENT VALUE OF R4 FROM STACKED 
sVALUE ANDO ADJUST NEXT DEFECT BY DELTA 
3sLOG THE DELTA 


sMODIFY THE SECTOR REMAINDER 


sNOW FIND HOW MANY DEFECTS TO NULL OUT IN THE 
sREMAINDER OF THE HEADER WORDS IN THIS SECTOR 


sNULL SO4‘IN THE HEADER OF THIS SECTOR 
oe ves THE ENTIRE TRACK YET ? 
é 


TINUE 
sEXIT, GO WRITE FORMAT FOR THIS TRACK 


SEQ 0069 
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TRACK DESCRIPTOR CALCULATION MODULE 


172 015170 000000 TMOLTA: .WORD 0 


Fo 


s TEMP, ACCUMULATIVE DELTA VALUE GOES HERE 


SEQ 0070 


G6 
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CHECK BAD SECTOR FILE ENTRIES 


OBAIKUSwWfor 


015172 
015172 


010046 
012700 
005720 


005710 
100414 


020027 
101011 
023720 
001367 
023720 
001365 
062766 


012600 
000207 


031472 


032462 
031460 
031462 
000002 000002 


-SBTTL CHECK BAD SECTOR FILE ENTRIES 


J ESSSASAAKEAHAASSHEAAEHASESESESLOEEEESEESEAERESEEEEEASEEERESEEASEEEEEEEESESEOEEEEOE 


sTHIS MODULE CHECKS TO SEE IF THE CYLINDER ADDRESS BEING SETUP BY THE ‘MAKTRK’ 
sROUTINE IS ENTERED IN MFG BAD SECTOR FILE. 


3% 

sINPUTS ARE: TMPBSF, TMPBSF +2 

3 

sOUTPUTS ARE: 

3% 

;CALL 

3 JSR PC, CHKBSF sNOW CHECK THE BAD SECTOR FILE 

5 °°. }8eeseee sRETURN HERE IF SECTOR NOT FOUND, 
5s |. s#S2s00 sELSE RETURN HERE 


34 
sTHIS MODULE IS CALLED BY: MERGE 
8 FE SSAEAAAASSSSSSSSHASEASSSESEEAESEAESASESEESSHESEEESEAEEESHEEEEEEEEESEESESEEEEESEEEEOE 


CHKBSF : 
MOV RO, -(SP) s3PUSH RO ON STACK 
MOV @MFGBUF+6.,RO ;GET OVER SERIAL NUMBER IN BSF TABLE 


18: TsT CRO)+ sUPDATE POINTER TO NEXT CYLINDER BOUNDRY 
sIN THE BSF TABLE. 
2s: TST CRO) sIS THIS THE TERMINATOR OF THE BSF ? 
BMI at s8R IF YES CSECTOR NOT FOUND) 
CMP RO, @ENDBSF sIS THIS THE END OF THE BSF ENTRIES ? 
BHI 43 sBR IF YES (SECTOR NOT FOUND) 
CMP TMPBSF ,CRO)+ sSAME CYLINDER ADDRESS ? 
BNE 1s s3BR IF NO 
CMP TMPBSF+2,(RO)+ SAME TRK/SEC ADDRESS ? 
BNE es s8R IF NO 
zs. ADD #2,2CSP) sADJUST RETURN FOR SECTOR FOUND 
MOV (SP)+,RO 3sPOP STACK INTO RO 
RTS PC 


SEQ 0071 


H6 
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FILE MERGE MODULE FOR TRACK RECORD 


OBO UV Swfre 


39 


015370 


44 015372 


015376 


002244 


031462 
031460 
015172 


050000 


150000 


002232 
002322 


002232 
002232 


-SBTTL FILE MERGE MODULE FOR TRACK RECORD 

i SPSOROOAEEEEEEESESEEEEEERESESEEEEEEEEEEEESESESEEEESESEEEEEROEEEEEEEEEEEEDEEESS 
sTHIS MODULE CREATES THE TRACK RECORD WHICH WILL BECOME THE FORMAT ON AN RPO7, 
ry A GIVEN TRACK, 


SINPUTS ARE: 


MERGE: : 


1%: 
2s: 


4t; 


INTLEV, PLTRK, TKWCNT, DESCYL, DESTRK, TOSBLK 
3 

sOUTPUTS ARE: HORBLK+O - HORBLK+300 

34 

sTHIS MODULE IS CALLED BY: MAKTRK 


8 § SOMSOSAEEEHEAEEEEEESEEEASSEEEESEOEEEEESEEEEEEEESEESEAESEEEEEEEEEEEEEEEEEEOESEEOEEE 


R1 
#TOSBLK RS 
@PLTRK ,RO 
CRO)+,R3 
CRO), R4 
@HORBL 


R1 

CRO), TMPBSF +2 
-CRO), THPBSF 
PC, CHKBSF 


56 


#050000 , (RO)+ 
6% 


sSET THE TOGGLE SWITCH TO NON-INTERLEAVED 
sGET THE INITIAL TD TABLE ADORESS, 

s THE RPO7 INTERLEAVE MASK, 

1 THE 1ST INTERLEAVED SECTOR ADDRESS, 

s THE 1ST SECTOR ADORESS, 


é 

s THE @ OF WORDS PER 

sADJUST WORDS TO BYTES (X 2) AND 
;CALULATE END OF HEADER TABLE. 


sLOAD THE CYLINDER ADORESS 

sSEE IF INTERLEAVED SECTOR SHOULD BE LOADED, 
sBRANCH IF NOT, ELSE 

sLOAD INTERLEAVED SECTOR, 

s INCREMENT TO NEXT SECTOR ADORESS, 

+e aes SWITCH TO NON-INTERLEAVED AND 
3 


sLOAD LOW OR NON-INTERLEAVED SECTOR, 

s INCREMENT TO NEXT SECTOR ADDRESS. 

iTS Lae ¥ eee: SWITCH ON? 

5 

sSET THE TOGGLE SWITCH TO INTERLEAVED 
SECTOR, 


CHECKED FOR IN THE BSF. 
CK THE BAD SECTOR FILE, 
}RETURN HERE IF SECTOR NOT FOUND, 
sELSE RETURN HERE. 
sSET UF/FMT BITS IN CYLINDER ADDRESS 


sSET MF/UF /FMT BITS IN CYLINDER ADDRESS 
sGET POINTER t+ TRK/SEC ENTRY 


sFOR EACH poe] OR 

sTHIS IS LAST WORD FOR EACH SECTOR 

ze ba Mae END OF THE HEADER TABLE ? 
‘ 

se . = ALL SECTORS ON THIS TRACK ? 
L] 

sRESET R4 TO SECTOR ADDRESS O AND 


AND 
TRACK (6 WROS X SO. SECTORS). 


SEQ 0072 


et neat sees stent 


16 
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SEQ 0073 
FILE MERGE MODULE FOR TRACK RECORD 


38 015434 000725 BR 1$ sCONTINUE. 

60 015436 123703 002322 7$: CMPB SEC5O,R3 s;DONE WITH ALL SECTORS ON THIS TRACK ? 

61 015442 103326 BHIS 2s ;6R IF 

62 015444 005003 CLR R3 sRESET R3 TO SECTOR ADDRESS O AND 

63 015446 000720 BR i$ sCONTINUE. | 
| 

65 015450 000207 8$: RTS PC ;RETURN | 


J6 
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MAKE TRACK BUFFER 


Sabasessereuranesyeses 
° 
c 
g 


002404 


002234 
002376 


-SBTTL MAKE TRACK BUFFER 


§ {POORER AEEEEEEEEEDE 1 OOARESNABEEEEEREDOEEREEEEEEEEEEEREEEEEEEEREDEEEEEEREEEREEE 
sTHIS MODULE IS USED ANYTIME & FORMAT TRACK OR VERIFY TRACK COMMAND IS ISSUED. 
THE MODULE CREATES THE BLFFER 


sTHE COMMAND EXECUTION. 


3s THE COMMAND FAILS. 


34 

s INPUTS ARE: 
3 

sOUTPUTS ARE: 
é 


sTHIS MODULE IS CALLED BY: MAIN 


FUNCTN, TKWCNT 


'ERRFNC ° BUSADR 2 


PC ,MAKTRK 


“TEO FOR THE OPERATION AND DOES THE SETUP FOR 
IT ALSO EXECUTES THE COMMAND AND ALLOWS A RETRY IF 


NEGWRD, RPOF 


sNOW EXECUTE THE COMMAND 
sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 


$s SSOREASESAAASEESEEAAEESEAESEEEHEEASEEEEEEESEAEHOEEAEESEREEEEEEEEEOEAEEEEEEEEEEEE 


MAKTRK; 


2s: CMP 


ADO 
S$: RTS 


@ROHD . FUNC TN 
3% 


@RHDATA , ERRFNC 
greceun »BUSADR 


@HORBLK , BUSADR 
TKWCNT , NEGWROD 
@CMOD . OF F SET 
PC ,ORIVER 
Sle 


RTYCNT 
is 
#2,(SP) 
PC 


33PUSH RO ON STACK 

33PUSH R1 ON STACK 

33sPUSH R2 ON STACK 

33PUSH R3 ON STACK 

33PUSH R4 ON STACK 

33PUSH RS ON STACK 

300 THE DEFECT LOCATING 

sNOW PUT THE DEFECTS IN THE CORRECT SECTOR 
8 

3 


RO 
iTS THIS A FORMAT COMMAND ? 
sB8R IF NO 


i SAVE FUNCTION FOR ERROR ROUTINE 
sAND SKIP NEXT 


sIS THIS A VERIFY FUNCTION? 

3BR NO CMUST BE A WRITE CHECK) 
sSAVE FUNCTION FOR ERROR ROUTINE 

sGET POINTER TO BEGINNING OF TD BLOCK 
3ANOD GO-ON 


sGET POINTER TO BEGINNING OF HEADER BLOCK 
+ TRACK WORD COUNT (6 WROS X SO. SECTORS) 


a 


ANY ERRORS 
TURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 
s0I0 WE HAVE AN ERROR ? 
368R IF YES 
sADJUST FOR GOOD RETURN 
s TAKE RETURN NOW 


SEQ 0074 


ae 


K6 
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MAKE TRACK BUFFER 


OBO VWS wtr 


015706 
015714 


012701 
105777 


013256 


002434 
003421 
000002 


000006 
164566 
010000 


000004 
164474 


000004 
164424 


164556 


164536 
002244 


bE PORAAEEEEOEAEEEEEEESEEEEEEESESEEEEEEEEREEEEEEEEEEEEEEAREEEESEEEEEEEEEREDEEEEES 
sTHIS MODULE IS USED TO INITIALIZE THE RPO7. IT DETERMINES IF THE USER 
sSELECTED DRIVE IS ACTUALLY AN RPO7. IT ALSO CHECKS THE FUNCTIONALITY OF THE 
s'ORIVE READY’ BIT IN RPDS. IT DETERMINES IF THE DRIVE IS INTERLEAVE ENABLED 
AND RECORDS THE STATUS FOR PROGRAM OPERATION. IN ADDITION, IF A WRITE 
sOPERATION WAS SELECTED BY THE USER, THIS MODULE CHECKS THAT WRL IS NOT SET. 
sMOL MUST ALSO BE SET IN ORDER TO CORRECTLY COMPLETE THE DRIVE INITIALIZATION. 


§ PPPRECOAESEEESEEEEEREESSESEDEEESEEEEEEEEEEEEEESEEEDEEEEEEEEESEEREDEEEREDEEREEES 
ORVINI: JSR PC,RESET sSEIZE THE PORT AND RESET THE MASSBUS 
sPRINT ‘ORIVE xX’ 
MOV DRVNO, -C SP) 


MOV @FRMT10, -C SP) 
MOV @2,-C(SP) 


MOV SP, 

TRAP CSPNTF 

ADD #6, SP 

TST @RPOS s00 A READ OF THE DRIVE STATUS REG 

BIT @NED , BRPCS2 300 WE HAVE NED? 

BEQ 1s sIF ZERO, ORIVE DOES EXIST 

sREPORT ‘NON-EXISTENT ORIVE’ 

TRAP CSEROF 

-WORD 1 

-WORD EM21 

BR NORUN sTAKE THE BAD BRANCH, THE ORIVE IS NO GOOD! 
1%: BIT @ILEV,@RPOS sIS THIS —E INTERLEAVE ENABLED? 

BEQ es sIF BIT = 

MOVB 0377, INTLEV iSET THE INTERLEAVE ENABLED MASK 


sPRINT ‘, INTERLEAVED’ 
MOV @FRMT31,-CSP) 
MOV - -(SP) 


MOV »RO 
TRAP CSPNTF 
ADD @4,SP 
BR 3% 
2s: sPRINT ‘, NOT INTERLEAVED’ 


MOV @FRMTSO, -C SP) 
MOV #1,-CSP) 


MOV SP 
TRAP CSPNTF 
ADO 64,SP 
38: MOV SRPDT, -(SP) :GET THE DRIVE TYPE REGISTER 
BIC @81T11,(SP) :CLEAR THE DRIVE REQUEST REQUIRED BIT 
CMP @20042.(SP)+ ,IS THE DRIVE AN RPO7? 
BEQ 4s 38R IF YES 
sREPORT ‘DRIVE NOT AN RPO7’ 
TRAP C#EROF 
a En22 
BR 
4s: MOV 04,R1 :GET AN OVERALL ITERATION COUNT 
S$: TSTB RPDS sIS ORIVE READY SET ? 


L6 
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MAKE TRACK BUFFER 


016112 


016114 
016120 


016122 
016126 
016150 
016134 
016136 
016144 
016146 
016154 
016162 
016166 


016170 
016174 


016176 
016204 


016310 


012777 


013106 


000003 
005757 
013402 


002272 
002260 


164362 


002260 
002272 


164306 


002260 
002272 


002260 
164226 


002272 


002404 


002262 


68: 


7$: 


98: 


108: 


00D : 
BUF INI: 
1s: 


6$ 
PC,WAIT 
Ri 


S$ 

#3, ERRMSK 
@ORVRDY , ERRFNC 
PC ,ERRORS 
NORUN 


PC RETRY 
NOGOOD 

RTYCNT 

8s 

@RECALT , ERRFNC 
@RECAL , BRPCS1 
@RPOS 

108 
#13,ERRMSK 
PC, RETRY 
NOGOOO 

RTYCNT 

9% 

@RECAL ,FUNCTN 
PC ,ORIVER 

PC RETRY 
NOGOOD 

RTYCNT 

10% 

BUF INI 

ERRTTL 
@-1,S0F SW 

BE 


GBUF ,R1 
CR1)+ 


3;8R IF YES 

sWAIT A LITTLE LONGER 

sDONE TRYING YET ? 

s6R IF NO 

sLOG ‘ORIVE HUNG, DRY NOT SET ERROR’ 
sSAVE FUNCTION FOR ERROR ROUTINE 
sREPORT THE ERROR 

sORIVE IS NO GOOD 


sIS THE ORIVE ONLINE? 
3;68R IF YES 

sMARK THE CURRENT FUNCTION 
sLOG ‘ORIVE OFFLINE ERROR’ STATUS 
sSEE IF WE HAD ANY ERRORS 

sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 

:0ID WE HAVE AN ERROR ? 

368R IF YES 


sIS oe _— ONLY MODE ? 


3BR Y 

3IS THIS LIST MODE ? 
36R IF YES 

3IS THE DRIVE WRITE LOCKED ? 
36R IF NO 

sMARK THE WRITE LOCK TEST 

sLOG ‘ORIVE WRITE LOCKED ERROR’ STATUS 
sSEE IF WE HAD ANY ERRORS 

sRETURN HERE IF EXCEEDED RETRY LIMIT 


STATUS 


368R IF YES 


sSAVE FUNCTION FOR ERROR ROUTINE 
300 RECALIBRATE COMMAND 

s0ID ORIVE READY RESET DURING RECAL ? 

3;8R IF YES 

3LOG ‘ORIVE READY DION’ T RESET ERROR’ STATUS 
sSEE IF WE HAD ANY ERRORS 

sRETURN HERE IF EXCEEDED RETRY LIMIT 

sELSE RETURN HERE 

s0ID WE HAVE AN ERROR ? 

38R IF YES 


sSET UP FOR THE DRIVER 


ERRORS 
sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 
sD0IO WE HAVE AN ERROR ? 
36R IF YES 


sINCREMENT THE TOTAL ERROR COUNT 

sLOAD THE FAILED STATUS 

sGET POINTER TO BEGINNING OF BUFFER SECTION 
sINITIALIZE ALL BUFFERS 


SEQ 0076 





= 


Mo 
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MAKE TRACK BUFFER 


96 016312 020127 120072 
97 016316 101774 
98 016320 000207 


CMP R1, @ENDBUF 
BLOS i$ 
RTS PC 


;DONE YET ? 
;BR IF NO 


SEQ 0077 


N6 
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MAKE TRACK BUFFER 


OBIOUSwWlr 


49 


000024 
002440 


002420 


010330 
002432 


§ [PRARRAEAEAEREEERAEREEEEREREREEEEEEEEEEEEEEREEEEEEAEEEEREEEEEEEEEEDEDEEEREDEES 
sTHIS MODULE CREATES THE TABLES WHICH ARE USED TO SELECT DEVICE PARAMETERS 


sUSEO IN THIS PROGRAM. INCLUDED IN THE PARAMETER LIST ARE THE FOLLOWING ITEMS: 


sBASE REGISTER ADDRESSES FOR THE DEVICE, VECTOR ADDRESS OF THE DEVICE, 


sDETERMINATION VIA OPERATOR FOR THE FOLLOWING: CONTROLLER TYPE. 
sDIALOGUE DETERMINES THE PRIORITY OF THE CONTROLLER, 


;ORIVE NUMBER FOR TEST. 
34 
s INPUTS ARE: 


3 
sOUTPUTS ARE: 


FE SSSRAASHEEAAAAESESALESARELASEAESEESESSEAEEREAEEASESEEAEERESEEEESEEESEEEEEEEEEEEEE 


TABELD: : 


1%: 


2s: 


3%: 


4$: 


S$: 


NON - 


RPADD, RHTYPE, RPBAE, RPCS3, ORIVE, RPCS1 
3* 
sTHIS MODULE IS CALLED BY: THE INITIALIZATION CODE 


R2,-CSP) 


2 
R2,(R3) 
(SP)+,CSP)+ 


UNIT 

UNIT ,LSUNIT 
is 

(SP)+,R5S 
(SP)+,R3 
hl 


33PUSH R2 ON STACK 
33PUSH R3 ON STACK 
:3PUSH RS ON STACK 
sR2 = ITERATION COUNT 
3R3 = DATA SINK 

;GET HARDWARE P-TABLE 


sLOG IT IN NEW TABLE 

sCOUNT LOGGING 

sR2 NOT ZERO, CONTINUE LOGGING 
RH70 — ENT 


I 
sGET RPBAE OFFSET 
sADD BASE ADDRESS TO OFFSET 
sSAVE NEW RPBAE 


sADD 2 
sSAVE NEW RPCS3 


sDONE, RESTORE THE STACK 

sSAVE RPCS1 BASE ADDRESS 

sSAVE INTERUPT VECTOR ADDRESS 
sSAVE INTERUPT PRIORITY 

sSETUP DRIVE NUMBER FOR UNIT N 
3SKIP NEXT 


sTRY THE NEXT UNIT 
sIS THIS THE LAST UNIT TO TRY ? 
368R IF NO 


+sPOP STACK INTO RS 
ssPOP STACK INTO R3 
:sPOP STACK INTO R2 
i; TAKE THE RETURN 


IN ADDITION, 
AND THE SELECTION OF A 


SEQ 0076 


B/ 
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MAP SECTOR POSITION 


ODA Vdiutrr 


10 


002244 


002323 
002402 


000061 
002402 


MAP SECTOR POSITION 


| FOSOOOREOEEEEEEEESEEEEEEEEEEESSEEESEEEEEESEEESEEEEEEEOEEEEEEEEEEEEREEEEEEEOEES 
sTHIS MODULE IS USED WHEN A USER INPUTS A DEFECT VIA THE SECTOR WORD COUNT 
sMECHANISM AND THE DRIVE IS IN INTERLEAVED MODE. THE DATA IS CONVERTED FROM 
a POSITION TO LINEAR (NON-INTERLEAVED) POSITION. 


SINPUTS ARE : SECADD 

3 

sOUTPUTS ARE: SECADD 

34 

sTHIS MODULE IS CALLED BY: RELTIVE 


§ LSSOOSOSSSEESEEAEEEESESEESEEESEEHEESEEEEEEESEEEEEEEEEEEESEEEEEOEEEEOEEEEEEEEEE 


MAPSEC: TSTB INTLEV sINTERLEAVED SECTORS ? 
BEQ 2 sBR IF NO 
3sPUSH R1 ON STACK 


MOV R2, -( SP) ssPUSH R2 ON STACK 

MOvVB PLTRK ,R1 1GET THE FIRST INTERLEAVED SECTOR 
MOV SECADD ,R2 sSAVE THE SECTOR ADDRESS 

ASL 1 sMULTIPLY BY TWO 

ASL Re sFOR THE THRESHOLD AND THE INPUT 


sSCALE THE USER INPUT 

BLO 1% sIT JUST NEEDS DOUBLING, IF LOWER! 
SUB sTHIS IS A SECTOR ADORESS => 25. 

18: MOV sSAVE THE CORRECTED SECTOR ADORESS 

s3POP STACK INTO R2 

ssPOP STACK INTO Ri 

2s: RTS PC :RETURN NOW! 


SEQ 0079 


C/ 
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FIND DEFECT RELATIVE TO INDEX 


O@Bno Vi siufr 


002400 
002402 


-SBTTL FIND DEFECT RELATIVE TO INDEX 

BF SSSSOHSASESSEHSOHEOESEESEHASEEESSHSESEEEEESESEEESEEEEEEEESEEEEEEEEEEEEEEEEEEEEEEED 
sTHIS MODULE ACCEPTS SECTOR ADR AND WORD COUNT INPUT REPRESENTING A RELATIVE 
sDEFECT, WHICH IS CONVERTED TO ABSOLUTE DATA, RELATIVE ONLY TO INDEX. 

3¢ 

s INPUTS ARE: INTLEV, SECADD, RELWROD 

8 

sOUTPUTS ARE: RELWRD 


3% 
sTHIS MODULE IS CALLED BY: INPUTD, HDSCAN, DASCAN 


BS SOHSSSSSSSSSSASSASSHEEESEHSESEESEHESEEHSSOSEEEEEEOEEESESESSEEEEEEEEEEEEHESEEEEEEEEE 


RELTIVE: 
MOV RO, -CSP) ssPUSH RO ON STACK 
MOV Ri, -CSP ssPUSH R1 ON STACK 
MOV » -(SP) s3PUSH SECADD ON STACK 
JSR PC ,MAPSEC sCORRECT THE SECTOR MAP NOW! 
MOV RELWRO ,RO sGET THE USER INPUT TO MAKE IT RELATIVE 


ADO 0<G1+TD+G2+HORO+G3>,RO sGET INFO TO PUT THE DEFECT 
sAT LEAST IN SECTOR O 


MOV ee oie sGET SIZE OF SECTOR 
18: DEC SECADD P TABS OF THE ITERATION COUNT 
BMI es EN MINUS, END! 
ADD R1,RO ; ADO ONE MORE SECTOR TO VALUE 
BR is sAND HOUSEKEEP 
2s: MOV RO ,RELWRO sLOG THE ABSOLUTE VALUE RELATIVE TO INDEX 
MOV (SP )+, SECADD s3POP STACK INTO SECADD 
MOV (SP)+,R1 s3sPOP STACK INTO R1 
MOV SP )+,RO ssPOP STACK INTO RO 


SEG 0080 


D/ 
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INSERT ABSOLUTE DEFECT INTO TOR 


OBO Viawhrw 


10 


46 017006 
47 017014 
48 017016 


000004 
031420 
140000 


177777 
031420 
000004 
031420 
000066 
002400 


177776 
000154 


031460 


002222 


-SBTTL INSERT ABSOLUTE DEFECT INTO TOR 


} fOOOROEOOEAEEEAEESOEESEEEEEEEREEEEEEEEEEESEEOEEEEEESEEEEEEEEESEEEEEDESEEEEEEES 
sTHIS MODULE INSERTS THE ABSOLUTE DATA FROM RELATIVE TO INDEX INTO THE 
sEXISTING TRACK DESCRIPTOR CIF POSSIBLE). IF THE SCANNER IS BEING USED AND THE 
sNUMBER OF DEFECTS EXCEEDS 4, THE MFG’'S BAD SECTOR FILE WILL AUTOMATICALLY 

sBE UPDATED, ELSE AN ERROR MESSAGE WILL BE GENERATED. 


34 

s INPUTS ARE: RELWRD, TOWRDS - TOWRD6 

;OUTPUTS ARE: RELWROD, TOWROS - TOWRD6 

& 

i THIS MODULE IS CALLED BY: INPUTD, HOSCAN, DASCAN, UPDSCR 


BS SSSASSHSEHESSSHASEHADASESESEESEEEEEEEHESEEESESESEEEESSEEEEEEEEEEEEEEESEEEEEEEEEEE 


INSERT: 


Vv RO, -CSP) s3PUSH RO ON STACK 
MOV R1,-CSP) ssPUSH R1 ON STACK 
MOV #4 ,RO sGET THE @ OF DEFECT WORDS TO CHECK IN TD 
MOV @TOWRDS.R1 sFIRST ENTRY OF RECORD 
18: CMP CR1)+, @NULL sIS THE TRACK DESCRIPTOR FULL ? 
BEQ 2s s8R IF NO 
DEC RO sONE LESS AVAILABLE ENTRY TO-GO 
BGT 1% sLOOK AGAIN 
BR as sNO ROOM AT THE INN - WE'VE GOT TROUBLE. 
2s: MOV @-1, TMPBSF sFLAG THAT DATA IS FOR TD, NOT BSF 
TST TOWRDS sIS DATA VALID ? 
BEQ 13% s6R IF 
MOV #4,RO iGET THE @ OF DEFECT WORDS TO CHECK IN TD 
MOV @TOWRODS ,R1 iGET a ey TO BEGINNING OF DEFECTS 
ADO #<0S/2>,RELWRD ;ADD HALF A DEFECT TO ABSOLUTE VALUE 
3%: ty rat ea iDOES New DEFECT GO BEFORE THIS OLD DEFECT ? 
$ 
SUB -2(R1),RELWRD ;MAKE NEW DEFECT RELATIVE TO PREVIOUS DEFECT 
ADO @<DS>,RELWRO sADO A DEFECT SKIP TO THE NEW DEFECT 
DEC RO sOONE LOOKING YET ? 
@GT 3% 1BR IF NO 


sSETUP TO PUT THIS NEW DEFECT INTO THE 
sB8AD SECTOR FILE BUFFER, 
at; MOV DESCYL , THPBSF 1GET CYLINDER ADORESS, 
MOV SECADD, THPBSF+2 ,;SECTOR ADDRESS AND 
MOVB DESTRK+1, TMPBSF +3 s TRACK ADORESS. 
MOvB DESTRK+1,RO sGET TRACK ADDRESS 
sPRINT ‘WARNING #¢ CYL XXX., TRK XX. HAS 4 


‘ DEFECTS IN TRACK DESCRIPTOR’ 
MOV RO, -( SP) 
MOV DESCYL, -( SP) 
MOV @WARN, -C SP) 
MOV @FRMT61, -C SP) 
MOV @4,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADO #12,SP 
CMP TMPBSF ,LSCYL sSEE WHAT CYLINDER ADDRESS IS BEING FLAGGED, 
BHI 6% sBRANCH IF FE CYLINDER(S), 
BLO Ss sBRANCH IF ANY USER CYLINDER, ELSE 


SEQ 0081 


eT Rhy al ee acct hte DEAS ee ROE 


E7 
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INSERT ABSOLUTE 


34 
85 017236 


DEFECT INTO TOR 


123737 031463 002224 CMPB TMPBSF +3,LSTRK 
001406 BEQ 6$ 
005737 002166 5%: TST SCANR 
001014 BNE 7$ 
005737 002202 TST MODBY 
001423 - BEQ 8s 
012746 005021 MOV @FRMT60, -(CSP) 
012746 000001 MOV @1,-(SP) 
01 MOV SP ,RO 
104417 TRAP CSPNTF 
062706 000004 ADD 04,SP 
BR 13$ 
7$: 
013746 002400 MOV RELWRD, -( SP) 
012746 005443 MOV @FRMT6S, -C SP) 
012746 000002 MOV @2,-C(SP) 
610600 MOV SP .RO 
104417 TRAP CSPNTF 
062706 000006 a6 ADD #6,SP 
012746 005534 MOV @FRMT66, -C SP) 
012746 000001 MOV #1,-C(SP) 
O1 MOV RO 
104417 TRAP CSPNTF 
062706 000004 ADD @4,SP 
000437 BR 13% 
162737 000066 002400 9%: sus @<0S/2> ,RELWRD 
005741 TST -C(R1) 
7 000001 CMP RO,@1 
001416 BEQ 12s 
000002 CMP RO, @2 
001411 BEQ 118 
000003 CMP RO,@3 
00140 BEQ 108 
016161 000004 000006 MOV 4(R1),6(R1) 
016161 000002 000004 10%: MOV 2(R1),4C€R1) 
011161 000002 118: MOV CR1),2CR1) 
013711 002400 12%: MOV RELWARD,(R1) 
300 OEC 
001406 BEQ 13% 
026127 000002 140000 CMP 2(R1), @NULL 
001402 BEQ 
161161 000002 SUB (R1),2C€R1) 
13%: 
012601 MOV CSP)+,R1 
012600 MOV CSP)+,RO 
000207 RTS PC 


sSEE IF WE ARE FLAGGING THE BSF AREA, 

sBRANCH IF SO, ELSE 

sSEE IF SCAN MODE IS ENABLED, 

sBRANCH IF SO, ELSE 

sMUST BE MODIFY MODE, SO CHECK TO SEE IF MODIFIING 
sBY WORD COUNT OR BY INDEX MODE, 

sBRANCH IF WORD COUNT MODE, ELSE 


sPRINT ‘ INPUT DATA REJECTED’ 

sPRINT ' ANOTHER DEFECT WAS FOUND 

3 XXXXX, WORDS FROM INDEX’ 

sPRINT ' BAD SECTOR FILE WILL BE UPDATED’ 


sSUBTRACT A HALF DEFECT FROM ABSOLUTE VALUE 
sBACK THE POINTER UP BY ONE WORD 
sINSERT AFTER THREE DEFECTS? 


ING DOWN 
3sLOG THE NEW DEFECT DATA NOW! 
sWAS THIS LAST ENTRY IN TD ? 
s6R IF YES 
sNEXT WORD NULL ? 
36R IF YES 
sADJUST NEXT DEFECT TO MAKE IT RELATIVE TO 
sTHE NEW DEFECT 


ssPOP STACK INTO R1 
s3sPOP_ STACK INTO RO 
sNOW RETURN TO MAIN 


SEQ 9082 


F7 
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TRACK DESCRIPTOR RECORD DUMP 


O@Bne Vi awufor 


Re 


LEGS 


017240 


004406 
000001 


000004 
031416 
000003 
000002 
000002 
031414 
170000 


004515 
000006 


000016 
031420 
000004 


140000 


SEQ 0083 


-SBTTL TRACK DESCRIPTOR RECORD DUMP 


§ POPP OREEEAEEEEEEEEEEEEEEERESEEEEEEEESESEDEREREEEEEEEEEEEEEEEDEEEDEREEEESE DEES 
sTHIS MODULE PRODUCES THE TRACK DESCRIPTOR FILE ON THE LOCAL CONSOLE PRINTER. 
“4 IS INVOKED ANYTIME A USER REQUESTS A TRACK DESCRIPTOR DUMP. 


SINPUTS ARE; 


3 
sOUTPUTS ARE: 


TEXT, TOWRD1 - TOWRD6 


34 
sTHIS MODULE IS CALLED BY: INPUTD, READTD 


3 § SESHSEHASSESEESEEEEEEEEESSESEEAEEEEEESEESESESEEEESEEEEEEEEEEEEEEEEEEEOEEEEEEEEEER 


TODUMP ; 


18: 


2s: 


3%: 


R1,-CSP) 
Re, -(SP) 
LIST 

1% 
DEFCNT, #1 
es 

TEXT, -(SP) 
@FRMTT, -CSP) 
#2, -(SP) 
SP ,RO 
CSPNTF 


@FRMTSS, -( SP) 
#1, -(SP) 


SP ,RO 
CSPNTF 


eaaNn 
° w 
‘~~ 
oe 
On 
Aw 
8 


eww $ 
ww 


SSUes 


7 
a 


a 
we FAAAA 
~ 


Sas 
33 
es 


+3PUSH R1 ON arate 
3sPUSH R2 ON STACK 
sIS LIST OPTION ENABLED ? 


s6R IF 
rWAS ae DEFECT LISTED ALL READY ? 
‘PRINT T THE APPROPRIATE MESSAGE 


sPRINT ‘WORD@1 (CYL) WORD@2 (TRK)(SEC) WORD@3 WORD@4 WORDS 


sGET THE 2ND WORD OF THE TD (TRK/SEC ADRS) 


sSAVE 2ND TD WORD 
sGET RID OF HI BYTE CEXTRACT SECTOR) 
sSAVE 2ND TO WORD 


1GET RID OF LOW BYTE CEXTRACT TRACK) AND 

sMAKE IT THE LOW BYTE DATA 

1GET THE FIRST WORD OF TD (CYLINDER ADORESS) 
sSAVE 1ST TD WORD 

sSTRIP THE STATUS BITS 

sPRINT TO WORD@1, CYL, TO WORD@2 € TRK/SEC DATA 


sGET THE DEFECT FILE 

sAND THE MAXIMUM NUMBER OF DEFECTS 
sIS IT NULL DATA ? 

s8R IF YES 


G7 
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Cc 
TRACK DESCRIPTOR RECORD 


38 
39 


47 
46 


177776 
003640 
000002 


000006 


177776 
003€51 
000002 


000006 


002656 
000001 


4$: 


5$: 


sPRINT THE DEFECT DATA 
-2(R1),-CSP) 
OF RMT14, -( SP) 


sPRINT ' 140000 ' 
-2(R1),-CSP) 
@FRMT1S, -CSP) 
#2, -( SP) 
SP 


Of 

R2 sONE LESS ITERATION TO-GO 
3$ 300 UNTIL = OF 

3;CR-LF 


(SP)+,R2 3sPOP STACK INTO R2 
CSP )+,R1 33sPOP STACK INTO R1 
PC s TAKE THE RETURN 


SEQ 0084 


H/ 
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REGISTER BUFFER 


~ 
CO@OsoVawufr 


il 


002440 
002514 
000024 


002432 


-SBTTL REGISTER BUFFER MODULE 


8 FE SPSHOKEEEEEEEESEDESASEEEESEREESEEEESEEAEEESEEHESASEEEEEEEEEREEEDEEEEEEEEEEEEE 


sTHIS MODULE SAVE AN “wy OF THE RP on IT IS USED FOR DIAGNOSTIC 


Spire: SUBSEQUENT TO A 
SINPUTS ARE; 
; 

sOUTPUTS ARE: 


DISK C 
RPCS1 - RPCS3. 
REG+O - REG+S2 
THIS MODULE IS CALLED BY: ERRO 


8 FE FEMHESASEAESEEEESHESEESESEEEEEEEESEESEESESEEESEEEEEEEEEEEREOEEEEEEEEEEEEEDEEESE 


SAVRPR: 


1%: MOV 


2s: 


- RS 
@CR2)+,CR1)¢ 
R3 


1% 

RHTYPE 

es 
OCR2)+,CR1)D« 
@CR2)+,CR1)> 


(SP )+¢,R3 
(SP)+,R2 
(SP)+,R1 


8 


ADDRESSES 
AND SINK arn 


4z- 
Hof 
H 
m 
P *] 
op 
>= 
4H 
>$3 
g 


~ AN RH11 
sLOG RPCS3 


ssPOP STACK INTO R3 
s3sPOP STACK INTO R2 
s3POP STACK INTO R1 
sRETURN TO MAIN FOR ERROR REPORT 


SEQ 0085 


17 
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HEADER VERIFY MODULE 


OOnatVawftor 


017614 


017672 
017674 
017700 
017704 


017712 


002272 


002276 
002300 
000010 002272 


-SBTTL HEADER VERIFY MODULE 


3 FE PSOASHASEASSAEHESESEASEAHESESEESEASESESEEASEEEEESEEEEEEEELEEEEESESEEEEEEEEEEEES 


sON THE TO WORDS FOUND. 
sWITH THE ACTUAL 


S THE HEADER 


DOE AND S.D0. VERIFICATION FOR A VERIFY MODE OF 
THE TRACK DESCRIPTOR IS READ, AND CALCULATIONS ARE PERFORMED 
THESE CALCULATIONS ARE THEN TABLED AND COMPARED 


ON A SPECIFIED TRACK. ANY MISMATCH WILL 


S.0. WORDS FOUND 
— IN SEVERAL RETRY ATTEMPTS, THEN FINALLY AN ERROR MESSAGE. 
HORBLK+O - HORBLK+300., SECSO, INTLEV, RTYCNT, TOWRDS - TOWRD6 
‘ 
sOUTPUTS ARE: DEFCNT, ERRMSK, DEF1 - DEF4, LINBUF+O - LINBUF +300. 


F INPUTS ARE: 


34 
sTHIS MODULE IS CALLED BY: MAIN 


8 FE PSSASHASSASSSAESASEHSEASESEEEESEEESESASEEESEEEESESEEEEEEEESEEESEEEEEEEESEEEESEE 


VERIFY: + 


4%: 


-C(RO),EXPCTD 
-C(R1),RECVED 
#10, ERRMSK 


PC 


sGET POINTER TO BEGINNING OF EXPECTED DATA 
sINTERLEAVED DRIVE ? 


BR IF NO 

}RE - SHUFFLE THE DATA FOR A LINEAR COMPARE 
sGET POINTER TO BEGINNING OF EXPECTED DATA 
s@ OF SECTORS ON TRACK 

sGET POINTER TO BEGINNING OF RECEIVED DATA 

3#@ OF WORDS IN HEADER TO VERIFY 

iDOES_ EXPECTED DATA MATCH RECEIVED DATA ? 

sDONE COMPARING THIS SECTOR YET ? 

1DONE_ COMPARING THIS TRACK YET ? 

;RESET NO wee STATUS AND SETUP CONDITION CODE 
sIN PSW FOR RETURN 


sSAVE THE EXPECTED DATA 

sAND THE RECEIVED DATA 

sLOG ‘FORMAT VERIFY ERROR’ STATUS AND 
sSETUP CONDITION CODE IN PSW FOR RETURN 


SEQ 0086 


J7 
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READ MFG BAD SECTOR FILE MODULE 


OOnOvsufr 


017714 


177777 


002312 
0023514 


002404 
002222 
000000 


002224 
031464 
000071 


000400 
010502 
013304 


002274 


002252 


002312 
002314 
002315 
002234 


002404 
002376 


002314 
000012 


-SBTTL READ MFG BAD SECTOR FILE MODULE 


§ i PPRMERAEEEEEEDEESEEESEEEEEEEEESERADEEEEEEEEDEEDEEEEEEREEEEEEEEEDESEEEEDEEEEEE 
sTHIS MODULE DOES A READ OF THE MANUFACTURES SECTION (SECTORS 0,2,4,6,8) OF 
sTHE BAD SECTOR FILE (DEC144). IF THE READ IS UNSUCCESSFUL, THE PROGRAM 

sASSUMES THAT THE BSF WAS NEVER CREATED AND MARKS STATUS AS SUCH. IF DATA IS 
sFOUND FROM ONE OF THE FIVE COPIES OF THE MFG’'S BAD SECTOR FILE, THE 

~~ pihgeanpsne: IS STORED FOR A LATER REWRITE. 


TINPUTS ARE: MFGBUF, RDDAT, RTYCNT 
: 
sOUTPUTS ARE: SUPRSS, DESCYL, DESTRK, BUSADR, FUNCTN, NEGWRD, ERRMAX, CREATE 


3% 
sTHIS MODULE IS CALLED BY: MAIN 
3 FS SSRAKSEAAEEAASAEEEASEAAEEEEEEDEEEEEEEEEOEEEOEEAEOOEOO44E646660606646646664646464606460604 


ROBSF: MOV @-1,SUPRSS sSUPRESS THe ERROR MESSAGE OUTPUT 
MOV RO, -CSP) ssPUSH RO ON STACK 
MOV DESCYL, -(SP) ssPUSH DESCYL ON STACK 
MOV DESTRK, -(SP) 1 sPUSH DESTRK ON STACK 


MOV FUNCTN, -CSP) ssPUSH FUNCTN ON STACK 
MOV LSCYL, —- iGET THE BAD SECTOR FILE (LAST) CYLINDER, 
MOVE #0, DESTRK sSECTOR AND 


MOVE LSTRK,DESTRK+1 ;TRACK ADDRESSES. 

18: MOV Mf GBUF . BUSADR iGET POINTER TO BEGINNING OF MFG BSF BUFFER 
MOV @RDDAT,.FUNCTN ;SET UP FOR A READ DATA COMMAND 
MOV #256. , NEGWRD sWORD COUNT FOR THE ENTIRE SECTOR 


JSR PC, .ORIVER sEXECUTE THE OPERATION 
JSR PC,RETRY sSEE IF WE HAD ANY ERRORS 
BR 2s sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 
TST RTYCNT s0I0 WE HAVE AN ERROR ? 
BNE 1% 3;6R IF YES 
BR 3% 3GO0D READ!!! 
2s: ADD #2,DESTRK sINCREMENT TO NEXT COPY OF MFG BSF 
CMPB DESTRK, #10. ;0ID WE TRY READING ALL COPIES OF MFG BSF ? 
BLT 1% 3s6R IF NO 
sPRINT ‘WARNING #@ BAD SECTOR FILE DATA IS 
nov 3 CORRUPT, IT WILL BE INITIALIZED‘ 
MOV OF RMT64, -CSP) 
MOV #2, -C 
MOV SP ,.RO 
TRAP CSPNTF 
ADD #6 ,SP 
MOV oMF GBUF ,RO sGET POINTER TO BEGINNING OF MFG BSF BUFFER 
JSR PC ,.CRE144 sCREATE A NULLED MFG BSF BUFFER 
sNOW THAT WE HAVE A GOOD READ OR AN INITIALIZED 
sBUFFER, LET'S SEE IF THE DATA IS VALID. 
3%: MOV oF GBUF ,RO sGET POINTER TO ee OF MFG BSF BUFFER 
CMP CRO)+, #105 sLOOK FOR THE PACK S.N 
BNE 2s sNO MATCH, REWRITE THE “MFG BSF 
CMP CRO)+, #105 sLOOK FOR THE PACK S.N. 
BNE 2s sNO MATCH, REWRITE THE MFG BSF 
TST CRO)+ } THIS WORD ALWAYS 0! 


BNE 2s sIF NOT, FILE IS BAD 


SEQ 0087 


IK 7 
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READ MFG BAD SECTOR FILE MODULE 
SO 020124 005720 TST CRO)+ sIS THIS AN ALIGNMENT PACK ? 
Si 020126 001337 BNE ck ;6R IF YES 
Se 020130 004737 013256 JSR PC RESET sRESET ANY ERRORS 
53 026134 012637 002404 MOV (SP )+,FUNCTN s3sPOP STACK INTO FUNCTN 
020140 012637 002314 MOV (SP )+,DESTRK +3POP STACK INTO DESTRK 
020144 012637 002312 MOV (SP)+,DESCYL ssPOP STACK INTO DESCYL 
020150 012600 MOV (SP )+,RO 3sPOP STACK INTO RO 
54 020152 005037 002252 CLR SUPRSS sALLOW ERROR “ESSAGE TO BE OUTPUT 
SS 020156 000207 RTS PC sRETURN TO MAIN 


L/ 
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WRITE MFG/USR BAD SECTOR FILE MODULE 


OOBandYViawufrw 


10 


000012 
002234 
002234 


002234 
002376 


002322 


-SBTTL WRITE MFG/USR BAD SECTOR FILE MODULE 


i PERMA EEEEEEARESEEEEEEESEEEEEEEEESEEEEREEESESEEDEEEEEESEEEEEEDRESEEEERESEREEE 
sTHIS MODULE CREATES AND WRITES THE BAD SECTOR FILE ON THE LAST USER 


sCYLINDER/TRACK ON THE DISK. 
34 
s INPUTS ARE: 


é 
sOUTPUTS ARE: 


3% 
sTHIS MODULE IS CALLED BY: MAIN 


WRTDAT, WRDAT, 


SEQ 0089 


MFGBUF, OBUFF, CREATE 


—" DESTRK, FUNCTN, ERRFNC, MFG144, BUSADR, NEGWRD, ERRMSK, 


§ FE FSSASAESEEERESESEESEEESEEEEAEEEAEEEEEEEELESEEEOEEESESEEEDEOEEEEEEEEEEEESEEEEOEEES 


WRTBSF : 


3%: 


4$: 


5%: 


DESCYL, -C SP) 
DESTRK, -(SP) 
PC, SORT 
@OBUF 


PC ,CRE144 
LSCYL .OESCYL 
60, DESTRK 
LSTRK,DESTRK+1 
OF 


RTYCNT 

2s 

DESTRK 

> alae #10. 
— »BUSADR 
— »BUSADR 


4s 
(SP )+,DESTRK 
5 oP 2+ SSSeR. 


33PUSH DESCYL ON 
3sPUSH DESTRK ON STACK 

sSORT THE MFG BSF ENTRIES 

sGET POINTER TO BEGINNING OF BUFFER 

sCREATE THE USR BSF BUFFER 

sGET THE BAD SECTOR FILE (LAST) CYLINDER, 
sSECTOR AND 

sTRACK ADDRESSES. 

iGET POINTER TO BEGINNING OF MFG BSF BUFFER 
UP FOR A WRITE DATA FUNCTION 


STACK 


sSEE IF WE HAD ANY ERRORS 

sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 

sO0I0 WE — AN ERROR ? 


OR 
sDONE WITH 16 € 18 BIT MFG BSF YET ? 
36R IF YES 

s0ID WE JUST WRITE A 18 BIT MFG BSF ? 


38R IF YES 
sGET POINTER TO BEGINNING OF 18 BIT BSF BUFFER 


sSTART WRITTING USR 16 € 18 BIT BSF 
sGET POINTER TO BEGINNING OF USR BSF BUFFER 
sANO THE SECTOR WORD COUNT 

sEXECUTE THE OPERATION 

3SEE IF WE HAD ANY ERRORS 

sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 

s0IO0 WE HAVE AN ERROR ? 

368R IF YES 

sNEXT SECTOR 

sOONE WITH USR 16 € 18 BIT BSF YET ? 
368R IF NO 

3sPOP STACK INTO DESTRK 


WORD C 
sEXECUTE THE OPERATION 
ssPOP STACK INTO DESCYL 


M7 
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SORT BAD SECTOR FILE 


OOBnsOYUawfr 


000240 
012701 


012703 
005711 


031474 
032462 


000003 


000002 


177777 
177777 


000002 
000002 


000002 


-SBTTL SORT BAD SECTOR FILE 


3 § PPPAARAEEEEEEEEEEEEESEEEEEEEREREEEEEEEROEERERESEREEEEEEEEAEAEEEEEEEEEEEEEEEES 
sTHIS ROUTINE WILL SORT OUT DUPLICATE ENTRIES AND PUT THE BAD SECTOR FILE 


sIN ASCENDING ORDER. 


3C 


FF FPAARASAAEREAAEHASEAAALALESARESASAESEEAEEEEREEEEEEEEEAEEAEREREAEEEEESESSEEEREEREE 


ALL 


SORT: 


1%: 
2s: 


4$: 


S$: 


JSR 


MOV 


PC, SORT 


OMF GBUF +8. ,R1 


@ENDBSF ,R3 
C(R1) 

S$ 

R1,R2 


3$ 
CR2),CR1) 
43 

3$ 
3(R2),3(R1) 
4$ 

3% 

+ acalaatines 


: 1,(R2) 
#-1,2(R2) 
¢ wait 


es 
CR1)+,CR1D+ 
R1,R3 


1% 
S$ 


CR1), -CSP) 
2(R1), -CSP) 
CR2),CR1) 
2(R2),2(R1) 
(SP)+,2(R2) 
She ttt 


PC 


sCALL THE ROUTINE 


sGET POINTER TO BEGINNING OF MFG BSF BUFFER 
sTO GET OVER 2 S/N WRDS AND 2 ALL O'S WRODS. 


iGET POINTER TO END OF MFG BSF BUFFER 
sDONE CHECKING LIST YET ? 

;6R IF YES 

sRESTORE BASE POINTER TO R2 


sCOMPARE THE CYLINDER NUMBER 
1 SWAP ENTRIES 
s INCREMENT POINTERS 


3 T POINTERS 
; ARE THE SECTOR NUMBER 
sSWAP ENTRIES 


sGET RIO OF DUPLICATE CYLINDER AND 
sOUPLICATE TRACK/SECTOR ENTRIES. 
sUPDATE SEARCH POINTER TO NEXT CYLINDER 
sSEE IF THIS IS THE END OF BSF BUFFER, 
sBRANCH IF NOT, ELSE 

sUPDATE BASE POINTER TO NEXT CYLINDER 
sSEE IF THIS IS THE END OF BSF BUFFER, 
a IF NOT, ELSE 

: 


sSAVE THE CURRENT LO CYLINDER ENTRY 
sSAVE THE CURRENT LO TRACK/SECTOR ENTRY 
sSWITCH THE LO CYLINDER ENTRY 

sSWITCH THE LO TRACK/SECTOR ENTRY 

sLOAD THE HI CYLINDER ENTRY 

sLOAD THE HI TRACK/SECTOR ENTRY 


3EXIT 


SEQ 0090 ° 


EEE —eEeE 
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SORT BAD SECTOR FILE 


OBIDVS whe 


001000 
000105 
000105 


177777 


“ 


. CRE144: MOV RO,R1 
* ADD 


N/ 


5 FE FFASSAREAAEEAEEEEEEAREREAEAERERERESEEEELAEDACESEEEREEESEREEESEAEAEREREAEEEEEEE 
sTHIS MODULE CREATES THE MANUFACTURES OR USER SECTION OF THE BAD SECTOR FILE 
:(DEC 144 FILE), WHICH IS WRITTEN TO THE LAST USER CYLINDER/TRACK ON THE DISK. 
3% 

s INPUTS ARE: RO = POINTER TO BEGINNING OUTPUT BUFFER AREA 

° 

sOUTPUTS ARE: BUFFER POINTED TO BY RO 


3* 
sTHIS MODULE IS CALLED BY: RDBSF, WRTBSF 
iF SPSAAAAAEAASEEREREAEEEESAREEEELERAEEEEEEAREEEEEREEAEESLESREAEEEEEEEREEERAEEEEEEEE 


sGET THE START OF THE BUFFER 
@<256.4#2>,R1 sSAVE END OF BUFFER IN R1 


MOV #105,(RO)+ sCREATE A “HDA SERIAL NUMBER” 

MOV #105, (RO)+ sTO SATISFY ALL OPERATING SYSTEMS 

CLR CRO)+ sTHIRD WORD ALWAYS = O! 

CLR CRO)+ sFOURTH WORD = 0 (<> ALIGNMENT PACK) 
1$: MOV #-1,CRO)+ sNULL THE BAD SECTOR INFORMATION 

CMP RO,R1 sFILE DONE? 

BLO 1$ sNOT IF RO < SAID NUMBER 

RTS PC ;OK, TAKE RETURN 


SEQ 0091 


B& 
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ADDRESSING ROUTINES 


ODAC VW Siahtow 


10 


013701 


2 
acoeee 002312 


002315 
002315 002220 


002216 002315 
002312 


.SBTTL ADDRESSING ROUTINES 


§ SOCOROEROEOEOEEOEEEEESEEEEEEESEEEEEEEOEEEEEEEOEDRESESOEEEESESEEEEEEEEEEEEEEOSESS 
sTHIS MODULE IS USED IN THE SCANNING PROCESS TO PROVIDE ADDRESSES TO THE EXEC 
sWHEN A SECOND OR CONSECUTIVE ITERATION IS NEEDED DURING A SCAN OPERATION. 

3s THE ADDRESSES ARE LOCATED IN THE BUFFER “DBUFF” AND ARE PLACED THERE AS A 
sRESULT OF A PREVIOUS SCAN OPERATION. 


3¢@ 

s INPUTS ARE: TBLPTR 

é 

sOUTPUTS ARE: DESCYL, DESTRK 
ge 

sTHIS MODULE IS CALLED BY: MAIN 


BF SSSSSSHSSEHSSHSSHHSHASHSESSESEHESESSEEEESESESEEEEEEEEEEEEEESEESEEEEESEEEEEEEEEEEEEEE 


GETNEX: MOV TBLPTR,R1 sSETUP DEFECT BUFFER POINTER 
MOV Ri, -CSP) s3PUSH R1 ON STACK 
MOV (R1)+ ,DESCYL iGET THE CYLINDER ADDRESS 
BIC #170000,DESCYL ;REMOVE ANY STATUS BITS 


MOV (R1)+  DESTRK sAND LOAD IT NOW 
CLaB DESTRK sEXTRACT SECTOR FROM DISK ADDRESS 
ADO @<7e2>,TBLPTR sGET NEXT ENTRY IN BUFFER 

“ ate ent 33P0P STACK INTO Ri 


§ SOROOOSOSOEESEESEOOSEOEEEEEEEEEEESEESEEEESEEEESEEESEEESEEEEEEEESESEEESEEEESEEES 
sTHIS MODULE CONTROLS SPIRAL READS OR WRITES. IT INCREMENTS THE DESIRED TRACK 
sADDRESS UNTIL IT IS READY TO OVERFLOW INTO AN ILLEGAL ADDRESS. WHEN THIS IS 
sREADY TO HAPPEN, THE DESIRED TRACK IS RESET TO ‘MINTRK’ AND THE DESIRED 
sCYLINDER IS INCREMENTED. THE CALLING MODULE MUST DETECT WHEN THE DESIRED 
sCYLINDER HAS OVERFLOWED. 


{VARIABLES DESCYL AND DESTRK ARE AFFECTED BY THIS MODULE. 
; INPUTS ARE; MINTRK, MAXTRK 
sOUTPUTS ARE: DESCYL, DESTRK 
iTHIS MODULE IS CALLED BY: MAIN 


8S SSSSSOSSSSHHSSSSESSSSSHSSSSSESESSHESOSSSHESESSEOSEEHESEEESEEEEEESEEEHESESEEEESE 


SPIRAL: INCB DESTRK+1 s INCREMENT TO NEXT TRACK ADDRESS 
os DESTRK+1,MAXTRK ; TRACK COUNT AT MAX? 
MOvVB 


18 368R IF NO 
MINTRK ,.DESTRK+1 ;RESTORE MIN TRACK ADORESS 

INC OESCYL sINCREMENT TO NEXT CYLINDER ADDRESS 
18: RTS PC sEXIT 


SEQ 0092 


—— nn a eee er ere OO 


C8 
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ADDRESSING ROUTINES 


OOne Vi biatr 


41 021046 


031420 140000 
031420 
000004 
031420 
002302 
140000 
002254 


002172 
002170 
031414 


170000 
031417 


000012 


SEQ 0093 


FL SSOSASSSSSEEHESEESESESEHESSEESEEESEEOEEESEEEEEESESESEEEEEEEEEEEEEEEEEEESESEBEEEES 


sTHIS MODULE IS USED TO CONTROL THE COUNTING OF DEFECTS ENCOUNTERED ON THE 


TRACK AND DEFCNT (HEPENDENT UPON THE © OF DEFECTS 


8 F SSOSSASOSSSESHSEEEHOSESESESEEEESEEEEEEEESESSESESHEESESESESEEEEEEEEEEESEEEEEEEEEE 


33PUSH R1 ON STACK 


sDEFECT INFORMATION ? 
s6R IF NO 

11S IT VALID DATA ? 
s8R IF NO 

iFOUR RECORDS 


s INPUT FROM HERE 
sOUTPUT COUNT GOES HERE 
UNUSED ? 


Burp 

sONE LESS ENTRY "70 GO 

sIF NOT ZERO, WE'RE NOT DONE 
11S LIST OPTION ENABLED ? 
sIF NOT ZERO, YES 

11S MODIFY TO MODE ENABLED ? 


36R IF YES 
sGET THE 1ST WORD OF TD (CYLINDER ADDRESS) 
sSTRIP THE STATUS BITS 


sPRINT ‘WARNING ee CYL XXX., TRK XX 
3 DEFECTS IN TRACK DESCRIPTOR: 


sGET HI BYTE OF 2ND WORD OF TD Ng age cae 


sINCLUDE THIS IN @ DEFECTS/TRACK 


ssPOP STACK INTO R3 
ssPOP STACK INTO R2 


3RPO7 HDA, 
3¢ 
s INPUTS ARE: FROM TOWRDS - TOWRD6 
3 
sOUTPUTS ARE: DEF1 - DEF4, 
’ FOUND ) 
eo 
CALL 
JSR PC ,CNTDEF 
CNTDEF ; 
MOV R1,-(SP) 
MOV R2,-CSP) 
MOV 3,-(SP) 
CMP TOWRDS , ONULL 
BEQ 38 
TST TOWRODS 
BEQ 3% 
MOV 04 ,R2 
MOV @TOWRDS.R1 
MOV @OEF1,RS 
18: CMP CR1)>+, ONULL 
BEQ 2s 
INC OEFCNT 
TST CR3)o 
DEC R2 
6GT 18 
TST LIST 
BNE 2s 
TST MODTD 
BNE 2s 
MOV TOWRD1 ,R1 
BIC #170000 ,R1 
TOWRD2 +i, R2 
MOV R2,-CSP) 
MOV 1,-(SP) 
MOV @WARN, -( SP) 
MOV @FRMT61, -(SP) 
MOV @4,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD #12,SP 
ges INC -C(R3) 
MOV CSP )+,R3 
MOV (SP)+,Re2 
MOV (SP)+,R1 
RTS PC 


33POP STACK INTO R1 
sRETURN TO THE USER 


D8 
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¢ ADDRESSING ROUTINES 


012737 
005037 


001167 
002314 


002312 


000037 


§ OOOO OOOESEEEEEEEEESEOEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESEEEEEEEEEEEEESS 
sTHIS MODULE IS USED ONLY TO RE-WRITE 1D'S ON THE SECOND FE CYLINDER. THESE 
sTO'S ARE NECESSARY IN-ORDER FOR THE INTERNAL RPO7 MICRODIAGNOSTICS TO 
sPROPERLY EXECUTE. 

i [OPPO AAAOEEEEEEEEEEEOSOEEEEEEEEEEDEEEEESEEEEESEEEEEEESEESEOEEESEEESEEEREEEEEEES 


FETWO: 


1%: 


2s: 


#631. ,DESCYL sGET THE SECOND FE CYLINDER ADDRESS 
DESTRK sRESET THE TRACK/SECTOR ADDRESS 


@TOWRD1,R1 iSET UP A BUFFER POINTER 
DESCYL,(R1) sFIRST WORD OF TOD 
e81T13!BITi2, (aids sIT’ 4 A TO - IN 16 BIT MODE 
DESTRK,CR1) TRACK / SECTOR ADDRESS 
oye (R1)+ iSECTOR ADORESS = - 1 
04,R2 sA RECORD ITERATION COUNTER 
@NULL ,.CRL)+ iNO DATA FOR THIS TO (LEAVE IT NULL) 
R2 sONE LESS RECORD TO GO 
2s sIF NOT ZERO, WE'RE NOT DONE 
PC,WRITTD SATTEMPT TO WRITE THIS RECORD 
PC TURN HERE IF EXCEEDED RETRY LIMIT 
sOTHERWISE RETURN HERE 
DESTRK+1 sNEXT TRACK PLEASE..... 
DESTRK+1,031. sLAST TRACK YET? 
i$ s TAKE BRANCH IF NOT 
DESTRK +1 sGET RID OF THE OVERFLOW ADDRESS 
PC s TAKE THE USER RETURN 


SEQ 0094 


E8 
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SEQ 0095 
WRITE TRACK DESCRIPTOR MODULE 


1 -SBTTL WRITE TRACK DESCRIPTOR MODULE 
2 
3 3 FL FSHASHAREHEASEAESEASEESSEEEAASEHAEREHESEESESEEASASEEEEAEAEEEEOEEEEHEEEEEEEESEREDS 
4 sTHIS MODULE SIZES THE TD DATA AND DETERMINES IF THE TD ITSELF MUST BE 
5 sRELOCATED DUE TO THE PRESENCE OF A DEFECT WHERE THE TD WOULD NORMALLY BE 
6 sFOUND. IT ALSO DETERMINES IF HEADER #0 MUST BE RELOCATED DUE TO A DEFECT 
7 iBE TWEEN THE TO FILE AND THE FIRST HEADER. MASK BITS ARE SET TO INFORM THE 
4 sDEVICE EITHER OF THESE CONDITIONS OCCUR. 
34 
+4 sINPUTS ARE: TOWRD1, TOWROS, TOWRD4, TOLMTS, WRTTD, TOBCNT, RTYCNT 
1 a 
is sOUTPUTS ARE: DESTRK, RTYCNT, FUNCTN, BUSADR, ERRFNC, RPOF, NEGWRD, ERRMSK 
& 
14 3sCALL 
15 Fy JSR PC,WRITTD sCALL WRITE TO SUBROUTINE 
16 =. - senae sRETURN HERE IF EXCEEDED RETRY LIMIT 
+4 8  — 2eeee- sELSE RETURN HERE, NO ERROR 
1 34 
19 sTHIS MODULE IS MAINLY CALLED BY: INPUTD, FETWO, MAIN 
20 8 § SSSASHSSEHSSSESASASSESEASEEEAESEEESESSESEASSEEASEESSEEESESEEEESEEEEEEEEEEEEEEEEEEE 
21 
22 021152 WRITTD: 
021152 O01 MOV RO, -(SP) s3sPUSH RO ON STACK 
021154 010146 MOV R1,-CSP) 33sPUSH R1 ON STACK 
021156 013746 002314 MOV DESTRK, -(SP) 3sPUSH DESTRK ON STACK 
23 021162 012700 002352 18: MOV @TOLMTS,RO iGET POINTER TO TO LIMITS 
24 021166 012701 031420 MOV @TOWRDS .R1 sGET TRACK DESCRIPTOR os ats 
25 021172 112737 000377 002314 MOvVB #377 ,DESTRK sLOAD THE SECTOR ADORESS BITS 
021200 021127 140000 CMP CR1), ONULL sANY DEFECT SKIPS ON THIS TRACK ? 
27 021204 001414 BEQ 2s sBR IF NO 
28 021206 021120 CMP aes CRO)>+ ;WAS TO MOVED ? 
29 021210 003455 BLE s8R IF VES 
30 021212 032737 040000 031414 BIT corre, TOWRD1 3TO BIT — SET ? 
31 021220 001051 BNE 38R IF YES 
32 021222 1120 CMP ch), CRO)« ;WAS HOR O MOVED ? 
33 021224 003443 BLE 36R IF YES 
34 02 032737 100000 031414 BIT @81T15, TOMRD! sHDR O BIT ALREADY SET ? 
35 021234 001037 BNE 4g sBR S 
36 021236 012737 002404 2%: MOV @WRTTD,.FUNCTN sSET UP FOR A WRITE TO FUNCTION 
37 021244 012737 031414 002234 MOV © 1, sGET POINTER TO BEGINNING OF TRACK DESCRIPTOR BIFFER 
1252 012737 002260 MOV @MSWRTD.ERRFNC ;SAVE FUNCTION FOR ERROR TINE 
39 021260 052737 1 002236 BIS @CMOD , OF FSET T MODIFIER BIT 
40 021266 013737 002330 002376 MOV TOBCNT , NEGWRD 36 WORD T 
41 021274 004737 010502 JSR PC .ORIVER COMMAND TO CONTROLLER 
42 021300 004737 013304 JSR PC RETRY sSEE IF WE HAD ANY ERRORS 
43 021304 BR sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 
45 021306 005737 002274 TST RTYCNT s0ID WE HAVE AN ERROR ? 
46 021312 001323 BNE i$ s8R IF YES 
it pragted 062766 000002 000006 a6 ADD #2,6(SP) sADJUST FOR GOOD RETURN 
H 
021322 012637 002314 MOV CSP)+,DESTRK 3sPOP STACK INTO DESTRK 
021326 012601 MOV CSP)+,R1 3sPOP STACK INTO R1 
021330 012600 MOV CSP)+«,RO 33sPOP STACK INTO RO 
+4 021332 000207 RTS PC sRETURN 
51 021334 052737 100000 031414 4%; BIS #61715, TOWRD1 sMARK HOR O MOVED 


CZRJIKBO RPO7 FMTR/SCANNER MACRO 


WRITE TRACK DESCRIPTOR MODULE 


S2 021342 


69 

70 021432 
71 021434 
72 021436 


000735 


040000 
040000 
000002 
100000 
000002 
177776 


000002 


000066 


F8 
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002236 5%: 


031414 
140000 


031414 


2s 

@MTD OFFSET 
#B1T14, TOWRD1 
— >, @NULL 

> ies TOWRO1 


2(R1), -CSP) 


SP) 
@<DS/2>,R1 
(SP)+,R1 
es 
as 


sEXECUTE FUNCTION NOW 


sMARK TD MOVED IN OFFSET REG 
sMARK TO MOVED IN TRACK DESCRIPTOR 
sANY MORE DEFECT SKIPS ON THIS TRACK ? 


368R IF NO 
sHOR O BIT ALREADY SET ? 
38R IF YES 

sSAVE NEXT DEFECT VALUE 

sGET UPPER LIMIT FOR TD MOVED 

iFIND OIFFERENCE AND 

3ALSO, TAKE ANY DIFFERENCE FROM NEXT DEFECT 
sGET UPPER LIMIT FOR HOR O MOVED 

sWAS HEADER O ALSO MOVED ? 


36R IF NO 

sBACKUP TO GET VALUE AGAIN 

sSUBTRACT HALF A DEFECT TO GET LOWER LIMIT 
sFOR HOR O MOVED 

sWAS HEADER O ALSO MOVED ? 

368R IF NO 


002404 
002260 


002314 
36 


0022 
002234 
002376 


031430 
031430 


031432 
031432 


002272 


G8 
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READ TRACK DESCRIPTOR MODULE 


-SBTTL READ TRACK DESCRIPTOR MODULE 

§ LPROREEREEEEEEERESEEESEESEESEOEEEEREDEEEEEEERESEEEDEEREREEEREDEEEEEEEREOEEDEEES 
sTHIS MODULE DOES THE SETUP TO READ A TRACK DESCRIPTOR. RETRY, IF NECESSARY, 
+. DONE FOR ANY DETECTED ERRORS. 

SINPUTS ARE : ROTD, MSROTD, TOWRD1, TOBCNT, DESTRK 


: , 
sOUTPUTS ARE: FUNCTN, ERRFNC, ERRMSK, DESTRK, RPOF, BUSADR, NEGWRD, TOCPY1 


ah 

sCALL 

3 JSR PC,READTD sCALL READ TO SUBROUTINE 

8 |. 82200 sRETURN HERE IF EXCEEDED RETRY LIMIT 
$ qj seeee- sELSE RETURN HERE, NO ERROR 


34 
sTHIS MODULE IS MAINLY CALLED BY: INPUTD, TDSCAN, UPDSCR, MAIN 


8 FE SSRHESESESESHASSEEASEEEEESEAEEEEEEEREEESEEEESEEEEEEESEEEEEEEEEEEEEEOEEEEEEEEEED 


READTD: 
A ed tate s3sPUSH FUNCTN ON STACK 


MOV .- 3 sPUSH ON STACK 
MOV Ri, -C(SP) s3PUSH R1 ON STACK 
MOV @ROTO,.FUNCTN ;ISSUE THE READ TD COMMAND 
MOV @MSROTO.ERRFNC ;SAVE FUNCTION FOR ERROR ROUTINE 
18: MOV @TOURD1,RO -sGET POINTER TO BEGINNING OF TD BUFFER 
MOV TOBCNT ,R1 sGET BUFFER SIZE 
2s: CLR CRO)+ sINITIALIZE THE BUFFER 
DEC R1 ons sONE LESS ENTRY TO GO 


es AGAI 
MOV DESTRK, -(SP) 33PUSH DESTRK ON STACK 
MOVE #377 ,DESTRK sSET LOW BYTE OF ADDRESS 
@CMOD , OF F T 


sSE MODIFIER BIT 
MOV @TOWRD1.BUSADR ;GET POINTER TO BEGINNING OF TRACK DESCRIPTOR BUFFER 
MOV TOBCNT .NEGWRD 56 WORD TRANSFER 


JSR PC ,ORIVER sNOW DO THE COMMAND 

MOV CSP )+,DESTRK 33POP STACK INTO DESTRK 

JSR PC RETRY sSEE IF we ~~. ANY ERRORS 

BR 7% sRETURN HERE IF EXCEEDED RETRY LIMIT 
i OTHERWISE RETURN HERE 

TST RTYCNT s0ID WE HAVE AN ERROR ? 

BNE 1% 36 IF 


YES 
sREAD WAS GOOD, SO NOW COMPARE EXPECTED 


MOV @TOWRD1 , RO sGET POINTER TO BEGINNING OF TO BUFFER 

MOV DESCYL.TOCPY1 ,NOW PREPARE TO CHECK THE CORRECTNESS OF THE DATA 
BIS @8IT13!8ITi2, TOCPY1 sTHIS IS 16 BIT MODE, AND A TRACK DESCRIPTOR 
BIS CRO), TOCPY1 sSET REMAINDER OF EXPECTED BITS 


MOV DESTAK, TOCPY2 iSET UP FOR THE SECOND WORD OF THE TD 
BIS #377, TOCPY2 sSET LOW BYTE OF ADDRESS 
CMP (RO)+, TOCPY fe ee ADDRESS MATCH ? 


BNE 3% IF NO 
A san ees EPS 1 ADDRESS MATCH ? 
4 
3%: MOV #11,ERRMSK sLOG ‘TO wor INCORRECT ERROR’ STATUS 
BR S¢ sTRY READ AGAIN 
4%: TST CRO)+ sIS IT VALIO DATA ? 


H& 
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READ TRACK DESCRIPTOR MODULE 


021712 


000012 
002166 
013402 


000002 


002404 


002272 MOV 
S$: 


000006 + ADD 


6% 
#12, ERRMSK 
SCANR 


7$% 

PC, ERRORS 
7$ 
@2,6(SP) 
(SP)+,R1 


(SP )+,RO 
(SP)+,FUNCTN 
PC 


;BR IF YES 

:LOG ‘TD DATA INCORRECT ERROR’ STATUS 
sARE WE DOING DISK SCAN ? 

36R IF YES 

sREPORT THE ERROR 


sADJUST FOR GOOD RETURN 


33POP STACK INTO R1 

:3POP STACK INTO RO 

3sPOP STACK INTO FUNCTN 

30K, END SUB AND RETURN TO MAIN 


SEG 0098 


18 
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LIST TOCS) MODULE 


OOD YVSwlE 


bet tr 


022102 


013701 
013703 


177776 
000003 


000010 


002404 


-SBTTL LIST TOCS) MODULE 
i FEMOOOAEEEEEEEEEESEEEEEESEEEEAERESEEEEERESEEEEREEEREREREDEDEEEEEEDSESEEEEEEEES 
sTHIS MODULE IS USED TO LIST THE TDO(S) THAT HAVE DEFECTS FOUND DURING 

s THE LIST OPERATION. 
FROM A BUFFER CALLED ‘' TOWRD1' 


: 
sOUTPUTS ARE: PRESENTED TO THE USER ON THE CONSOLE PRINTER 


sCALL ROUTINE 


3S SSSASAESEEEASE SESEEEEEDEESEASSESESEEEEEESEEEEASEEESEEEEEEEEEEEEEEEEEEEEEEEEEEEEO 


34 
sINPUTS ARE: 
3* 
CALL 
JSR PC,LISTOS 
LISTOS: 
MOV FUNCTN, -( SP) 
MOV R1,-C ) 
MOV R2,-C(SP) 
MOV R3,-CSP) 
CMP OWRDS , @NULL 
BEQ $ 
MOV @TDODEF , TEXT 
TST LISHOR 
BEQ 1% 
MOV @ANDHOR , TEXT 
is: JSR PCT 
TST LISHOR 
BEQ 8s 
MOV @RDHD ,. FUNCTN 
JSR PC ,MAKT 
BR 8 
MOV BUSADR ,R1 
MOV TKWCNT ,R3 
2s: CMP CR1)+,CR1)> 
CMP CR1), @NULL 
BNE 
CMP CR1)+,CR1)¢ 
CMP CR1)+,CR1)> 
BR 7$ 
3%: MOV -2(R1),-C SP) 
CLRB 3( SP) 
MOV CSP)+,-CSP) 
MOV CSP )+,-CSP) 
MOV @FRMTS7,-CSP) 
MOV @3,-(SP) 
MOV »RO 
TRAP CSPNTF 
ADD #10,SP 
MOV . 
4$: CMP (R1)+¢, @NULL 
BEQ 


33PUSH FUNCTN ON STACK 

33PUSH R1 ON STACK 

33PUSH R2 ON STACK 

33PUSH R3 ON STACK 

sARE THERE ANY DEFECTS TO LIST ? 


36R IF NO 

sLOAD TEXT WITH ADDRESS OF MESSAGE 
sLIST HEADERS IN DEFECT SECTORS ? 
36R IF NO 

sLOAD TEXT WITH ADDRESS OF MESSAGE 
3GO DUMP THE TRACK DESCRIPTOR 


+ HEADERS IN DEFECT SECTORS ? 
HEADER COMMAND 


COMMAND 
sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 

sGET POINTER TO BEGINNING OF HEADER BLOCK 
sGET WORD COUNT FOR TRACK 


sGET OVER HEADER WORDS 1 AND 2 

sARE THERE ANY DEFECTS TO LIST IN THIS SECTOR ? 
36R IF YES 

sGET OVER HEADER WORDS 3 AND 4 

sGET OVER HEADER WORDS 5 AND 6 


sGET THE SECOND WORD OF THE TD (TRK/SEC ADRS) 
sSAVE SECOND WORD 

sGET RID OF HI BYTE CEXTRACT SECTOR) 

sPRINT TO WORD@2, SEC DATA 


sGET MAXIMUM @ OF DEFECTS 
sIS IT NULL DATA ? 

sBR IF YES 

sPRINT THE DEFECT DATA 


SEQ 0099 


J8 
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LIST TOCS) MODULE 
48 022104 016146 177776 MOV -2(R1), -CSP) 
022110 012746 003640 MOV OF RMT14, -C SP) 
° 022114 012746 000002 MOV #2, -(SP) 
022120 010600 MOV SP ,RO 
022122 104417 TRAP CSPNTF 
022124 062706 000006 ADD #6 ,SP 
49 022130 000412 BR 6% sAND GO-ON 
SO 022132 S$: sPRINT ‘ 140000 ' 
S1 022132 016146 177776 MOV -2(R1),-CSP) 
022136 012746 003651 MOV @FRMT15, -CSP) 
022142 012746 000002 MOV #2,-(SP) 
022146 010600 MOV SP,RO 
022150 104417 TRAP CSPNTF 
022152 062706 000006 ADD @6,SP 
S2 022156 005302 6%: DEC Re s;ONE LESS ITERATION TO-GO 
= 022160 0033546 BGT 4% oe ee = 0! 
3 - 
SS 022162 012746 002656 MOV @CRLF , -(SP) 
022166 012746 000001 MOV #1, -C 
022172 010600 ‘ 
022174 104417 TRAP CSPNTF 
022176 062706 000004 ADD @4,SP 
S36 022202 162703 000006 7$: SUB 6 ,R3 sDONE ALL SECTORS YET ? 
57 022206 00335035 BGT es ;BR IF NO 
S58 022210 8$: ; 
022210 012603 MOV CSP)+,R3 s3sPOP STACK INTO R3 
022212 012602 MOV (SP)+,R2 ssPOP STACK INTO R2 
022214 012601 MOV (SP)+,R1 s3sPOP STACK INTO R1 
022216 012637 002404 MOV CSP )+,FUNCTN ssPOP STACK INTO FUNCTN 
S59 022222 000207 RTS PC 


K8 
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NEW DEFECT LIST DUMP MODULE 


OBnaOyVsufr 


022374 
022376 


010103 
105237 
005046 


113716 


002243 


177777 


SEQ 0101 


-SBTTL NEW DEFECT LIST DUMP MODULE 


§ fF PORAAEOEEEESEEREREEEEEEREREEEEEEREEEEEEEOEEEEEEEEEEEEEEEREDEEEEEEEEEEEREEDEEES 
sTHIS MODULE IS USED TO PRINT ANY NEW DEFECT DATA FOUND DURING A SCAN 


FROM A BUFFER POINTED BY R1 
: 
sOUTPUTS ARE: PRESENTED TO THE USER ON THE CONSOLE PRINTER 


83 POUT TTTTETT TTT TTT TTTTTTTTTTTTITTTTTT TTT TTT TTT TT TTTTT TTT TTT TTT TTT TTT TTT TTT TTT 


sOPERATION. 

34 

sINPUTS ARE: 

34 

sCALL 

3 JSR PC ,.NEWLST 

NEWLST: MOV R1,R3 
INCB SCANIT 
CLR -(SP) 
MOVB SCANIT CSP) 
MOV (SP )+,-CSP) 
MOV @FRMT32, -C( SP) 
MOV @2,-CSP) 
MOV SP RO 
TRAP CSPNTF 
ADD ° 
MOV @FRMTSS, -CSP) 
MOV #1, -C ) 
MOV SP ,RO 
TRAP C8PNTF 
ADD 04 ,SP 

1s: TST CR3) 
BEQ TY) 
ADD @<642>,R3 
BIT @BITE,CR3)+ 
BEQ 1% 
TST -(R3) 
MOV R3,-CSP) 
MOV @-1,-CSP) 
MOV -CR3),-CSP) 
MOV -CR3),-CSP) 
MOV -(R3),-CSP) 
MOV ~CR3),-CSP) 
MOV -CR3),-CSP) 
MOV CSP), -CSP) 
CLRB 3( SP) 
MOV CSP), -CSP) 
CLRB 2¢(SP) 
SWAB 2(SP) 
MOV -CR3),-CSP) 
BIC #170000, 2( SP) 
MOV (SP)+,-CSP) 
MOV (SP)+,-CSP) 


sGET THE BUFFER ADDRESS 

s INCREMENT SCAN ITERATION COUNT 

sSETUP SCAN ITERATION NUMBER FOR TYPEOUT 

sGET THE ITERATION COUNT 

sPRINT ‘NEW DEFECT(CS) DURING SCAN ITERATION Xxx. 
‘ TOCS) FOLLOW: ' 


sPRINT ‘WORD@1 (CYL) WORD@2 CTRK)CSEC) WORDOS 
: WORD@4 WORD@S WORDO6’ 


sANY MORE NEW DEFECTS ? 

3;6R IF NO 

sMOVE TO THE END OF THIS NEW DEFECT TD LIST 
oni OEFECT BIT SET IN STATUS ? 


IF NO 
SBACKUP R3 POINTER AND 
33PUSH R3 ON STACK 


83 #-1 ON ST 
33sPUSH -CR3) ON STACK 
83 -CR3) ON STACK 


2ND WORD 
sGET RID OF HI BYTE CEXTRACT SECTOR) 
sSAVE 2ND TO 

sGET RIO OF LOW BYTE CEXTRACT TRACK) AND 
sMAKE IT THE LOW BYTE OF DATA. 


WORD 
sGET RID oF THE STATUS BITS 
sPRINT TO WORD@1, CYL, TO WORD@2 € TRK DATA 


L8& 
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NEW DEFECT LIST DUMP MODULE | 
022400 012646 MOV (SP)+,-CSP) 
022402 012646 MOV (SP)+,-(SP) 
022404 012646 MOV (SP)+,-(SP) 
022406 012746 004515 MOV @F RMT36, -( SP) 
022412 012746 MOV 06, - 
022416 010600 MOV SP, RO | 
022420 104417 TRAP = C$PNTF 
022422 062706 000016 ADD #16,SP 
42 022426 021627 140000 2$: CMP (SP), @NULL sIS IT NULL DATA ? 
43 022432 001412 BEQ 3% sIF MATCH, YES 
44 sPRINT THE DATA 
45 022434 012646 MOV (SP)+,-(SP) 
022436 012746 003640 MOV OF RMT14, -(SP) 
022442 012746 000002 MOV #2,-(SP) 
022446 010600 MOV SPR 
022450 104417 TRAP =—s- C$PNTF 
022452 062706 000006 06, 
46 022456 000411 BR 4s sAND GO-ON 
47 022460 3$: sPRINT ‘ 140000 ' 
48 022460 012646 MOV (SP)+,-(SP) 
022462 012746 003651 MOV @FRMT1S, -(SP) 
022466 012746 000002 MOV @2,-(SP) 
022472 010600 MOV SP,RO 
022474 104417 TRAP =s- CSPNTF 
022476 062706 000006 ADD #6 ,SP _ 
49 022502 021627 177777 4$: CMP (SP), @-1 sIS THIS TERMINATOR ? 
SO 022506 001347 BNE 2¢ :BR IF NO 
14 022510 005725 TST (SP) sRESTORE STACK 
3 - 
53 022512 012746 002656 MOV @CRLF , -( SP) 
022516 012746 000001 MOV @1,-(SP) 
022522 010600 MOV SP, 
022524 104417 TRAP = C$PNTF 
022526 062706 000004 ADD 04, SP 
54 022532 012603 MOV (SP)+,R3 ssPOP STACK INTO R3 
SS 022534 005723 TST (R36 ;GET OVER INTERNAL STATUS WORD IN TD LIST 
56 022536 020327 120072 CMP R3, @ENDBUF sAT END OF BUFFER? 
57 022542 101657 BLOS 18 i8R IF NO | 
58 022544 000207 S$: RTS PC | 
j 


Be Sars eee see eR 


CZRIKBO 
TO SCAN 
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MODULE 


012737 


000010 
002272 


000014 


-SBTTL TO SCAN MODULE 
FF SSSAAAASEAEASESSESASEEASEREREEESESEEEAEEEAERESEEESEEEEEASEEEROEEEASEESEEAREEEEEEEEEE 
sTHIS MODULE IS USED BY THE SCANNER TO DETERMINE IF A TRACK DESCRIPTOR IS 
;CORRUPTED. 
3% 
sOUTPUTS ARE: TO (R1)+, WHICH IS A BUFFER CALLED ‘DEFBUF’ AND TO 
3 NEWCNT AND ERRTTL 
34 
;CALL 
3 JSR PC, TOSCAN 
2 FSPAaAAAEAEEAASEASEEEAEEHAEBREEESASESEREBRESLASEEERESAECEREEREEEESEEEEEEEEEEEESEELEEE 
TOSCAN: MOV #10. ,ITCNT sINITIALIZE ITERATION COUNT 
MOV ERRTTL,R2 sSAVE ERROR TOTAL AT THIS POINT 
18: JSR PC ,READTD ;CALL THE READ TD SUBROUTINE 
BR es sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE, NO ERROR 
CMP ERRTTL,R2 sDID WE HAVE AN ERROR BEFORE ? 
BEQ 2s :6R IF NO 
TST ITCNT sOONE WITH ITERATIONS YET ? 
BGT 1$ ;BR IF NO 
2s: SUB ERRTTL,R2 sGET ® OF ERRORS DETECTED DURING READ TD 
NEG Re sMAKE NUMBER POSITIVE AND 
CMP R2,@2 ;DID WE HAVE AT LEAST 2 ERRORS ? 
BGE 3% ;BR IF YES 
ADD @2,(SP) sRETURN WITH NO ERROR (TD OK) 
BR 4s 
3%: MOV DESCYL,CR1) sSTART FORMING THE BUFFER NOW 
BIS @BIT13!BIT12,(R1)+ ;THIS IS THE FIRST TO WORD. 
MOV DESTRK,CR1) sFORM THE SECOND WORD 
BIS @377,(R1)+ 3;0F THE TO 
+3 + lata taens — TRY TO MOVE THE TD ALREADY ? 
a 
MOV #1,ERRMSK sLOG ‘TO NOT READABLE THRU RELOCATION ERROR’ STATUS 
CMP -C(R1),-CR1) sBACK UP THE POINTERS 
CLR SUPRSS sALLOW ERROR MESSAGE TO BE OUTPUT 
4$; BIC @BIT8,14(R1) ;CLEAR INTERNAL DEFECT STATUS AND 
RTS PC sTAKE HARD ERROR OR NO ERROR RETURN. 
S$: INCB NEWCNT s INCREMENT THE NEW DEFECT COUNT 
MOV @<G1+<DS/2>>,(CR1)+ 3GET THE CONSTANT FOR TD MOVED, WORD #3 
MOV @NULL ,CR1)+ sNULL TD WORD 04, 
MOV @NULL ,CR1)+ 3TO WORD @5, 
MOV @NULL ,CR1)+ sAND TD WORD #6. 
BIS oB81T14!6IT8, CR1)+ sMARK TO MOVED AND DEFECT IN THE 


RTS PC sINTERNAL STATUS. 


SEQ 0103 


ES ES NS = oe — 


N8 
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HEADER SCAN MODULE 


OBO V Swe 


023116 


023120 
023126 
023130 
023136 


012737 
013702 
005003 


012704 
012737 
012737 


002274 
024116 


100000 
000243 


040000 
000166 


002530 


031414 
002400 


031414 
002400 


-SBTTL HEADER SCAN MODULE 


§ EPERAHAAHEASEEEREAERESEEESEEEEEEEEEEESEEEEEHEEEAAESEEAEREREREREEEEESERESEEEREERE 


s;THIS A ta IS USED TO DETERMINE IF A HEADER IS CORRUPTED WHEN INVOKED BY THE 


sNOW BACKUP THE SECTOR ADDRESS IN INTERLEAVED 


SEQ 0104 


_— 
+ OUTPUTS ARE: DEFECT IS MOVED TO (Ri)-, WHICH IS A BUFFER CALLED ‘DEFBUF’ OR 
; TO A 2 WORD BUFFER CALLED ‘TMPBSF', WHICH IS THEN MOVED TO 
3 A BUFFER CALLED ‘MFGBUF’. 
i* 
3CALL 
3 JSR PC ,HOSCAN 
8 FE SRAAAAASSAAASALEAAEESEAAEAEEESEEASASESEEEREEESAEEEEASASESESEEESESEEEEEEEEESEEEEEE 
HOSCAN: MOV #10. ,ITCNT sINITIALIZE ITERATION COUNT 
MOV ERRTTL,R2 sSAVE ERROR TOTAL AT THIS POINT 
CLR R3 sCLEAR HEADER COUNTER 
MOV @TOSBLK ,R4 iGET POINTER TO BEGINNING OF DEFECT BUFFER 
“18; MOV @RDHD , FUNCTN sSETUP FOR READ-HEADER FUNCTION 
MOV @RHDATA,ERRFNC ;SAVE FUNCTION FOR ERROR ROUTINE 
MOV @OBUFF ,BUSADR sGET POINTER TO BEGINNING OF DATA BUFFER 
MOV TKWCNT , NEGWRD sSET TRACK WORD COUNT (6 WRDS X 50. SECTORS) 
BIS @CMOD , OF FSET 3SET COMMAND MODIFIER BIT 
JSR PC ,ORIVER ;00 THE TRANSFER 
JSR PC,RETRY ;SEE IF WE HAD ANY ERRORS 
BR 13$ sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 
TST RTYCNT sD0ID WE HAVE AN ERROR ? 
BEQ 2s ;B8R IF NO 
BIT @OPI!HCE!HCRC ,REG+14 3IS IT AN OPI, HCE OR HCRC ERROR ? 
BNE 5$ ;B8R IF YES 
BR 3$ 
2s: CMP ERRTTL,R2 ;0ID WE HAVE AN ERROR BEFORE ? 
BEQ 43% 3;68R IF NO 
3$: TST ITCNT ;DONE WITH ITERATIONS YET ? 
6GT is :8R IF 
4%: ADD @2,(SP) sRETURN WITH NO ERROR CHEADER OK). 
BR 16% 
5$: INC R3 s INCREMENT HEADER COUNT 
CLR RTYCNT sRESET RETRY COUNT TO O 
JSR PC ,.FINDSEC 3GO FIND THE SECTOR IN WHICH THE NEW DEFECT 
3WAS FOUND. 
BNE 7$ 36R IF NOT SECTOR O, ELSE 
etoen 6 CONSTANT HAS TO BE USED TO MOVE 
BIT #B81T15, TOWRD1 3IS HEADER O ALREADY MOVED ? 
BNE 6% 3;B8R IF YES 
MOV @<G1+TD+G2+<DS/2>>, RELWRD sGET THE CONSTANT FOR HOR O MOVED 
BR 11$ ; INSERT DEFECT INTO TO 
6%: BIT @#BIT14, TOWRDL :IS THE TO ALREADY MOVED ? 
BNE 12% ;68R IF YES 
MOV @<G1+<DS/2>>,RELWRD :GET THE CONSTANT FOR TD MOVED 
BR 11% s INSERT DEFECT INTO TO 


Y¢ 
b9 
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58 sOR NON-INTERLEAVED MODE. 

59 023140 113705 002323 7$; MOVB PLTRK,RS sGET 1ST INTERLEAVED SECTOR 

60 023144 005305 DEC RS sBACKUP ONE SECTOR 

61 023146 105737 002244 TSTB INTLEV sINTERLEAVED SECTORS ? 

62 023152 001414 BEQ 98 sB8R IF NO 

63 023154 032737 020000 002530 BIT OOPT ,REG+14 sIS IT AN OPI ERROR ? 

64 023162 001010 BNE 9% sBR IF YES 

6S 023164 123705 002402 CMPB SECADD RS sIS THIS SECTOR > 24, ? 

66 023170 0030035 BGT 8% s;8R IF YES 

67 023172 060537 002402 ADD RS, SECADO sADJUST SECTOR ADRS FOR A SECTOR <= 24, 

66 023176 000404 BR 10% 

69 023200 160537 902402 83: SUB RS, SECADO sADJUST SECTOR ADRS FOR A SECTOR > 24. 

70 023204 005337 002402 9%: DEC SECADD sBACKUP THE SECTOR COUNT TO 
71 023210 012737 000470 002400 10%: MOV @<DATA+<D0S/2>>,RELWRD sPUT THE SKIP IN GAP 4 OF THE 
72 sSECTOR PRECEEDING THE SECTOR 
73 sWITH THE BAD HEADER 

74 023216 004737 0616536 118: JSR PC RELTIVE sCALCULATE THE DEFECT VALUE RELATIVE TO INDEX 
75 023222 013714 002400 MOV RELWRD , (R4) sLOG THE NEW DEFECT IN DEFECT BUFFER 

76 023226 004737 024150 JSR PC, TOLER sSEE IF HEADER ERROR'S ARE WITHIN TOLERANCE 
77 sAND UPDATE POINTER TO DEFECT TABLE IN R4. 
78 023232 005737 002272 TST ERRMSK sDID RANDOM HEADER ERRORS OCCUR ? 

79 023236 100422 BMI 14% sBR IF YES 

80 023240 020327 000002 CMP R3,02 sOID WE HAVE 2 MORE HEADER ERRORS ? 

81 023244 003642 BLE i$ sBR IF NO 

os 023246 004737 016616 JSR PC, INSERT s INSERT DEFECT INTO TD 

84 023252 005737 031460 TST TMPBSF 300 WE HAVE ROOM IN THE TRACK DESCRIPTOR ? 
8S 023256 1004235 BMI 178 s6R IF VES 

86 023260 113737 002402 031462 12%: MOvB SECADD , TMPBSF +2 i SAVE THE BAD SECTOR AND 

87 023266 004737 011476 JSR PC ,LOOBSF sLOAD THE BSF BUFFER 

-4 023272 000415 BR 178 

90 023274 012737 000017 002272 13%: MOV #17, ERRMSK sLOG ‘UNRECOVERABLE ERROR DURING PACK SCAN’ STATUS 
91 023302 000403 BR 158 sTAKE THE BAD RETURN 

92 023304 012737 000016 002272 14%: MOV #16, ERRMSK — ‘RANDOM HEADER ERROR’ STATUS 

93 023312 005037 002252 158: CLR SUPRSS ALLOW ERROR MESSAGE TO BE OUTPUT 

94 0235316 042761 000400 000014 16%: BIC @BIT6,14(R1) iCLEAR INTERNAL DEFECT STATUS AND 

< 023324 000207 RTS PC sTAKE HARD ERROR OR NO ERROR RETURN. 

97 023326 105237 002246 17$; INCB NEWCNT s INCREMENT THE NEW DEFECT COUNT 

98 023332 012704 000006 MOV 06 ,R4 iGET @ OF ENTRIES IN TRACK DESCRIPTOR 

99 023336 012703 031414 MOV @TOWRD1 RS sGET POINTER TO BEGINNING OF TD BUFFER 

100 023342 012321 18%: mov CR3)+, (RL de sPUT NEW DEFECT INTO BUFFER 

101 023344 005304 OEC sOONE ALL ENTRIES YET ? 

102 023346 003575 GT sBR IF NO 

103 023350 032737 100000 031414 BIT belts, TOWRDL :sIS HOR O MOVED ? 

104 023356 001402 BEQ 198 sR IF NO 

105 023360 (52711 100000 BIS #61T15,(R1) sMARK HOR O MOVED, IN THE INTERNAL STATUS 
106 023364 (32737 040000 031414 19%: BIT a hae TOWRO1 11S THE TO MOVED ? 

107 023372 001402 BEQ s6R IF NO 

108 023374 052711 040000 BIS eerr1e, (a1) sMARK TO 


MOVED AND 
109 023400 052721 000400 208: 61S + 6,CR1 De sMARK DEFECT, IN THE INTERNAL STATUS. 


C9 
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012737 
004737 


002260 
002376 


002524 


002156 


-SBTTL DATA SCAN MODULE 


£ FE SMOKE EESEAHESAEESEHEOOEEEEEEEESEEESESEEEHEOSEEEEEEEESEEEEEEEEESEEEEEEEEEEEEEEEOE 


sTHIS MODULE IS USED 


TO FINO ANY DATA FIELD DEFECTS. 


I? USES A FULL TRACK 


sBUFFER FOR DATA TRANSFERS, CALLED ‘DBUFF’. 


3 
sOUTPUTS ARE: 


oy! IS MOVED TO (R1)-, 


WHICH IS A BUFFER CALLED ‘DEFBUF’ OR 


; TO A 2 WORD BUFFER CALLED ‘TMPBSF’, WHICH IS THEN MOVED TO 
s A BUFFER CALLED ‘MFGBUF’. 


34 
3;CALL 
i JSR PC ,OASCAN 


FF SHSHAASRSSSESOESHSSESESEESESESESEEEEESESEESEEESEESESEEEESEESESEEEEEEEEEEEEESEEEED 


DASCAN: MOV @BGNPAT,PATTRN ;START WITH BEGINNING DATA PATTERN 
18: JSR PC .GETPAT sGET A PATTERN AND SETUP ‘PATTRN’ TO CONTAIN 
3s THE NEXT DATA PATTERN TO BE USED. 
2s: MOV @TOSBLK ,R4 iGET POINTER TO BEGINNING OF DEFECT BUFFER 
MOV @WRTDAT,.FUNCTIN ;SETUP FOR A WRITE DATA COMMAND 
MOV @URDAT , ERRF NC sSAVE FUNCTION FOR ERROR ROUTINE 
MOV @0BUFF ,BUSADR sGET POINTER TO BEGINNING OF DATA BUFFER 
MOV @<256.¢50.>,NEGWRD ;SET FOR A FULL TRACK DATA TRANSFER 
JSR PC ,.ORIVER 300 THE ge Aye ll 
JSR PC RETRY 1 SEE IF WE HAD ANY ERRORS 
BR 108 sRETURN HERE IF EXCEEDED RETRY LIMIT 
}ELSE RETURN HERE 
TST RTYCNT s0ID WE HAVE AN ERROR ? 
BNE 2s 36R IF YES 
3GO00 WRITE!!! 
sNOW DO A WRITE CHECK ON THE TRACK JUST WRITTEN 
38; MOV #10. ,ITCNT sINITIALIZE ITERATION COUNT 
MOV ERRTTL Re sSAVE ERROR TOTAL AT THIS POINT 
CLR AS iCLEAR WCE COUNTER 
4%: MOV @wCKD ,FUNCTN SET UP FOR A WRITE-CHECK COPMAND 
MOV @UCKDAT , ERRF NC + CAVE FUNCTION FOR ERROR ROUTINE 
MOV @<256.¢50.>,NEGWRD ;FULL TRACK DATA TRANSFER 
JSR PC .ORIVER 300 THE WRITE CHECK NOW! 
JSR PC RETRY sSEE IF WE HAD ANY ERRORS 
BR 108% sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE 
TST RTYCNT sDIO WE HAVE AN ERROR ? 
BEQ Ss 36R IF NO 
BIT OWCE ,REG+10 sWAS IT A WRITE CHECK ERROR ? 
BNE Bt 36R IF YES 
BR 68 36R IF NO 
5%: CMP ERRTTL,R2 sO0IO0 WE HAVE AN ERROR BEFORE ? 
BEQ 7% 36R IF NO 
68: TST ITCNT sDO0NE WITH ITERATIONS YET ? 
6GT ry) s6R IF 
78; CMP PATTRN,@ENDPAT ,;DONE WITH ALL PATTERNS YET ? 
BLO 1% s8R IF NO 
@2,(SP) sRETURN WITH NO ERROR (DATA OK). 


ADO 
BR 13% 


SEQ 0106 


D9 
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002354 
002400 
016616 
031460 
011476 


000017 


002246 
000006 
031414 


100000 


100000 
040000 


040000 
000400 


002354 
002400 


002272 
002272 
000014 


031414 


031414 


9%: 


sNOW PROCESS THE WRITE CHECK ERROR, TO FIND BAD WORD 


R3 
RTYCNT 
PC.F INDWRD 


PC .F INDSEC 


PC ,RELTIVE 
RELWRD,(R4) 
PC, TOLER 


ERRMSK 
11% 
R3,02 


4% 
— » TOLMTS+2 
TOLMTS+2,RELWRD 


RELWRO 
PC, INSERT 


12% 
#20, ERRMSK 
SUPRS 


@TOWRD1 RE 
ola CR1)> 
iss 

> 7 ha TOWRO1L 


16% 
#6IT15,(R1) 
+ » TOWRD1 


#6IT14,(R1) 
+ * sates 


s INCREMENT WCE COUNT 

sRESET RETRY COUNT TO O 

sGO FIND THE BAD WORD WITHIN THE SECTOR OF THE 
sNEW DEFECT. 

160 4-~ THE SECIUR IN WHICH THE NEW DEFECT 


sWAS F 

;CALCULATE. THE DEFECT VALUE RELATIVE TO INDEX 
sLOG THE NEW DEFECT IN DEFECT BUFFER 

sSEE IF WCE’S ARE WITHIN TOLERANCE AND UPDATE 
sPOINTER TO DEFECT TABLE IN R4. 

te + WCE‘S OCCUR ? 

‘ 

3010 a HAVE 2 WCE‘'S AFTER THE ORIGINAL ? 


s6R 

rite —_— OF DEFECT BE IN GAP 2 ? 
sGET UPPER LIMIT FOR HDR 0 MOVED AND 

sADD ONE TO IT. 

sINSERT DEFECT INTO TD 

300 WE HAVE ROOM IN THE TRACK DESCRIPTOR ? 
sBR IF YES 


sLOAD THE BSF BUFFER 
sTAKE THE RETURN 


sLOG ‘UNRECOVERABLE ERROR DURING PACK SCAN’ 
sTAKE THE BAD RETURN 

sLOG ‘RANDOM WCE ERROR’ STATUS 

sALLOW ERROR MESSAGE TO BE OUTPUT 

sCLEAR INTERNAL DEFECT STATUS AND 

sTAKE HARD ERROR OR NO ERROR RETURN. 


s INCREMENT THE NEW DEFECT COUNT 

sGET @ OF ENTRIES IN TRACK DESCRIPTOR 
sGET POINTER TO BEGINNING OF TO BUFFER 
sPUT THE NEW DEFECT INTO BUFFER 

sOONE ALL ENTRIES YET ? 


36R IF NO 
cs nS weet 


STATUS 


sBR IF 

3s MARK HOR O MOVED, IN THE INTERNAL STATUS 
i1S THE TO MOVED ? 

36R IF NO 


sMARK TD MOVED AND 
sMARK DEFECT, IN THE INTERNAL STATUS. 
sTAKE RETURN 


SEQ 0107 


ES ESS 


ES 
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31 024114 


S2 
53 024142 
S54 024146 


002402 


002402 


002566 


bf PPROOHOEEAEEEEEEEEAEEESERESEEEREDEEEEEEEEEEEEEEEEEREEEEEEEEEEOREREEESORESEES 
sTHIS MODULE IS USED BY ‘DASCAN’ TO IDENTIFY AND LOCATE ANY DEFECT INFORMATION 
sFOUND DURING A SCAN OPERATION. THE MODULE DETERMINES THE SECTOR ADDRESS OF 
NEW DEFECT AND THE WORD COUNT WITHIN THE SECTOR OF THE NEW DEFECT. 


SINPUTS ARE; REG+2 (RPWC) 
3 
sOUTPUTS ARE: RELWRD (WORD COUNT IN SECTOR) 


ye 
sCALL 
JSR PC .F INDOWRD sCALL THE ROUTINE 
8 i SPSSSOSEEEESEASESEEESEEESEEEEEESEAEEEEEESEEAESESEHEEESEEEAEEEEEEEEEEEEEEEEEEEEEEE 
FINOWRD: MOV REG+2,-C(SP) sPUT RPWC CONTENTS ON THE STACK 
ADD @<256.450.>,(SP) sAND CALCULATE THE @ OF WORDS XFERD 
DEC (SP) sSUBTRACT 1 FOR AN ODD OR EVEN WORD 
TST RHTYPE sWAS THE CONTROLLER AN RH70 ? 
BEQ 1% s6R IF O, NO 
SUB @2,(SP) + eUBTRACT 2 FOR A DOUBLE WORD 
BIT #681711 ,REG+S2 sWAS WCE ON AN EVEN WORD? 
BEQ 1% s6R IF O, NO 
DEC (SP) SUBTRACT 1 FOR AN EVEN WORD 
18; SUB 0256. ,(SP) ;010 WE FIND THE BAD SECTOR YET ? 
BGE 1$ s6R IF NO 
ADO 0256. .(SP) sTHIS IS THE BAD WORD IN THE BAD SECTOR 
MOV (SP )+,RELWRD sSAVE WORD COUNT IN SECTOR 
RTS PC sAND TAKE THE RETURN 


§ § POPOSEEOSESEEEESEESEEESEEEEEEEEEEEEEEEEEESEEEEEEDESEDEEEDEERESEEEDEEEEEEELEES 
sTHIS MODULE IS USED TO FIND THE SECTOR ADDRESS OF THE NEWLY FOUND DEFECT 
——— WAS DETECTED DURING THE SCAN OPERATION. 


INPUTS ARE: REG+6 CRPDA) 

}OUTPUTS ANE: SECADD (SECTOR IN ERROR) 

Ae 

sCALL 

5 JSR PC .FINDSEC sCALL THE ROUTINE 


‘ 
sTHIS MODULE IS MAINLY CALLED BY: HOSCAN, DASCAN 
§ POOSOSSSOSEEESCOEEESESSEEEEESESEEEEEEEEEESSESEEEEEEEEESEEEERESEDEREDDEEEEEEEES 


FINDSEC: CLR SECADD sINIT SECTOR ADDRESS COUNT 

MOVB REG+6, SECADD sLOAD SECTOR ADDRESS IN ERROR 

BNE sBR_ IF ERROR NOT IN LAST SECTOR, ELSE 
=  - crac :SETUP FOR ERROR IN LAST SECTOR 


: DEC SECADD sADJUST RPDA TO ACCOUNT FOR ERROR 
$ RTS PC sAND TAKE THE RETURN 


SEQ 0108 


F9 
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012700 
Sotese 


024256 
033614 


000002 


002252 
177777 002272 


| { PPOOSOSSEEEESEEESEEEEEEDEEEOEEEEERESEEEEDEEEEEEDESEREDEEESEEEEESEEEEEEEEEEEES 
sTHIS MODULE IS USED TO DETERMINE IF THE DATA FOUND DURING A SCAN OPERATION 

sIS DATA WHICH OCCURS WITH CONSISTENT RESULTS. IF THE DATA BUFFER CONTAINS 
sDATA FOR ANY ONE TRACK WHICH DEVIATES MORE THAN +/- 3 WORDS, THE FAILURE IS 
sCONSIDERED TO BE A RANDOM WRITE CHECK ERROR, THE DEFECT - NOT LOGGED IN THE 


— DESCRIPTOR AND THE USER IS NOTIFIED OF THE PROBLEM 


SINPUTS ARE: FROM A BUFFER CALLED ‘ TOSBLK’ 

OUTPUTS ARE: RELWRD (AVERAGE DEFECT), ERRMSK CIF ERROR DETECTED) 
34 

3CALL 

3 JSR PC, TOLER sCALL ROUTINE 


8S SSHSSSEEEESEEEEESESEEESESEEEEEESEEESESESEESESALEESEEASEEEESEEEEEESEEEEEEEEEEEEE 


TOLER: MOV $,RO sGET POINTER TO HI VALUE FOR WCE’S 
CMP eDSBLK. R4 3IS THIS THE FIRST WCE DETECTED ? 
BNE 36R IF NO 
MOV tra), CRO) i SAVE THIS DEFECT AS HI AND 
MOV CR4),2CRO) 3LO VALUES. 

1%: 4 ¢R4),(ROD ++ baa VALUE HIGHER THAN PREVIOUS HI ? 
od ee sSAVE THIS AS HI VALUE NOW 

2s: TST . sSET POINTER TO LO VALUE 
CMP CR4),CRO) 3IS THIS VALUE LOWER THAN PREVIOUS LO ? 
BGT 36R IF NO 
MOV CR4),CRO) sSAVE THIS AS LO VALUE NOW 
TST - ) sSET POINTER TO HI VALUE 

3%: MOV CRO)+, -CSP) 3GET HI VALUE AND 
MOV CSP), -CSP) sSAVE IT. 
ADO CRO), CSP) i TOTAL THE HI AND LO VALUES AND 
cic sCLEAR CARRY BIT 
ROR (SP) sOETERMINE THE AVERAGE. 
MOV (SP)+,RELWRD sSAVE AVERAGE VALUE AS DEFECTIVE SPOT 
SUB CRO),CSP) sGET DIFFERENCE FROM LO TO HI VALUES 
CMP (SP)+,@6 tARE HI/LO VALUES WITHIN -+3 WORDS ? 
BLE 4S 36R IF YES 
CLR SUPRSS sALLOW ERROR MESSAGE TO BE OUTPUT 
MOV @-1,ERRMSK 3LOG ‘RANDOM ERROR’ STATUS 

4%: TST CR4)o sUPDATE WCE TABLE POINTER 
RTS PC sAND RETURN 

5%: -WORD O sHI VALUE GOES HERE 

68: - WORD 0 3LO VALUE GOES HERE 


SE@ 0109 


CZRIKBO 


O@BnOYV aiafr 


G9 
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bf PPROEEEEEEEEEREEERESEEEEEEEEREEEREEEEESEROEDEEEEEEEEEEEEEEDEEE EEEEEEEEEEEEEDS 
sTHIS MODULE PROVIDES TEST PATTERNS TO BE USED DURING THE SCANNER PROCESS. 


3* 

sINPUTS ARE: FROM BGNPAT - ENDPAT (BEGIN PATTERN THRU END PATTERN) 

é 

sOUTPUTS ARE: TO A BUFFER CALLED ‘OBUFF' 

3% 

sCALL 

3 JSR PC ,GETPAT 

8S FSEARSAAKSSAASESEASEEESEASESESEEAREEEAESESEESEEESESEHASEESERESEESEEEREEEEEEEESEEEEEEE 


GETPAT: 


Ri, -CSP) ssPUSH R1 ON STACK 
MOV R2,-CSP) ssPUSH R2 ON STACK 
MOV R3,-CSP) +sPUSH RS ON STACK 
MOV PATTRN,RS sGET THE NEW PATTERN 
MOV @<256.450.>,R2 s;GET A WORD/TRACK COUNT 
MOV @OBUFF ,R1 +GET THE READ/WRITE BUFFER 

18: MOV CR3)+,CR1D+ sWRITE FIRST WORD OF PATTERN 

MOV CR3),CR1)+ sNOW WRITE THE SECOND WORD 
TST -(R3) sBACK UP THE INPUT POINTER 
SUB #2,R2 sREDUCE THE ITERATION COUNT 
BGT 1% sIF > 0, KEEP GOING 
CMP C(R3)+,CR3)> sUPDATE TO NEXT 2 WORD PATTERN 
MOV R3,PATTRN sSTORE THE NEW PATTERN 
MOV C(SP)+,R3 ssPOP STACK INTO R3 
MOV (SP 3+,R2 ssPOP STACK INTO R2 
MOV C(SP)+,R1 33POP STACK INTO R1 
RTS PC sNOW RETURN TO CALLER 


SEQ 0110 


aes 


H9 
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SCRATCH ROUINES 


KOveaaovbwfe 


ed 


024470 
46 024472 


002370 


-SBTTL SCRATCH ROUINES 


8 FE SMPROEAHAEAEEHASEASEEEEEASEEEEAEASEEEEEEAEEEEEEEEADEEAESEAEREEESEESEREDEEEEEEDSE 


sTHIS MODULE DETERMINES IF DATA FOUND IN T 
sTOLERANCE TO BE CONSIDERED AS A POSSIBLE SCRATCH. 


HE NEW DEFECT BUFFER IS WITHIN 
TOLERANCE IS +/- 3 WORDS. 


3 FE SSSASHEAEHERSESEEAEEESESEEEACESEEEEEEEEEEESEEEREEEEESESEEEESEESEEESEEEEEEEEEEES 


7 

:CALL 

3 JSR PC, TOLRAN 

TOLRAN: 
MOV R1,-CSP 
MOV TEMP1,-(SP) 
MOV TEMP2, -C SP) 
MOV @3,R1 

1%: CMP Terr, TEMP? 
BEQ 
BLO 38 
INC TEMP2 
BR 3% 

2s: DEC TEMPe 

3$: DEC R1 
BGT 1$ 
MOV (SP )+, TEMP2 
MOV (SP)+, TEMP1 
BR 5$ 

+4 : CMP (SP)+,CSP)> 
MOV (SP)+,R1 
RTS PC 


3sPUSH R1 ON STACK 


sTHIS IS THE TOLERANCE VALUE 
300 THE INPUTS MATCH? 
sIF EQUAL YES -RESTORE STACK AND RETURN 
sTHEY DO NOT, TEM 1< TEMP2 (BRANCH) 
‘ie ONE TO TEMP2 (TOO SMALL) 
AND REDUCE THE ITERATIONS LEFT 
; SUBTRACT ONE FROM TEMP 2 (TOO LARGE) 
sONE LESS ITERATION TO GO 
sOF >0 DO AGAIN 
ssPOP STACK INTO TEMP2 
s3POP STACK INTO TEMP1 


sAND RETURN 

sPOP STACK TWICE 
:3sPOP STACK INTO R1 
sNOW RETURN 


§ sOCSSEdsosseosssssoesosssoossoorsoosssossooossossoosoosssoosoooosoosooooseessS 
sTHIS MODULE LOOKS AT A 4 WORD FIELD IN THE NEW DEFECT BUFFER, CALLS ‘ TOLRAN’ 
_ DETERMINES IF A SCRATCH DOES INDEED EXIST. 


§ § SOSSSSSHSESSSESESESEESOEESHEEESEEESEEEEESESEEEHESESELEEEAEEEOEEOEEEEEEEEEEEEEEEEE 


ICALL 
PC ,.CHEKTD 
CHEKTD: 
MOV R1, -(SP) 
MOV Re, -(SP) 
ADD RL 
CLR TEMP2 
MOV R2 
1%: ADD CR1)+, TEMP2 
JSR PC, R 
TST TE 
BNE 2s 
DEC Ro 
BGT is 
2s: 
MOV (SP)+,R2 
MOV (SP)+,R1 
RTS PC 


3sPUSH R1 ON STACK 

33PUSH R2 ON STACK 

sMOVE R1 UP TO THE FIRST DEFECT 
sTEMP2 IS THE > gh — ACCUMULATOR 
— DEFECTS MAX 


sIF IT'S OK, TEMP2 <>0! 
sIF OK, TAKE BRANCH 
sONE LESS DATA ITEM 
3sIF >0, KEEP GOING 


ssPOP STACK INTO R2 
33POP STACK INTO R1 
sRETURN 


SEQ 0111 


L 


19 


ZRJKBO RPO7 FMTR/SCANNER MACRO VO4.00 1-DEC-83 09:58:43 PAGE 60 


Cc 
SCRATCH 


OOnatYVibuhr 


ROVINES 


002402 
000517 002400 


8 FE SSHSAASSEHSHASHASSHASEEASESEEAEEHESESESESEEEEESESEEESEOEEEEESEEEEEEEEESESEEEESEDEDEED 


sTHIS MODULE CREATES ABSOLUTE DEFECT DATA, RELATIVE TO INDEX. 


3* 
s INPUTS ARE: FROM A BUFFER CALLED ‘ TOWRD1' 
é 
sOUTPUTS ARE: RELWRD 
34 
sCALL 
JSR PC .FINDBAD 
£ FE SSMSSESSESHASSASASESSEEEEEEASESEASEEEEESEEEEESEEESEEEEAEEEEEESEEEEEEEEAEEEEESEEEEE 
FINDBAD: 
MOV R1,-CSP) 3sPUSH R1 ON STACK 
MOV R2,-C SP) 33PUSH R2 ON STACK 
MOV @TOWRDS,R1 sGET THE FIRST DEFECT 
MOV 04 ,R2 sAND THE RECORD SIZE 
18: ADD CR1)+,RELWRD ; ADD THE LIST OF A TO THE NEW DEFECT 
DEC Re sONE LESS RECORD E 
BGT 1% 30F >0, KEEP GOING 
MOV @<Gi+TD+G2>,R1 ;THE @ OF WORDS BEFORE HOR 0 
ADD @<HOR+G3+DATA+G4>,R1 sADO THE OVERHEAD FOR A SECTOR 
CLR SECADD DEF AULT=SECTOR ce] 
CMP R1,RELWRO iNOW SCALE THE VALUES 
BHIS 3% sIF Ri IS GREATER, SECTOR O IS BAD 
2s: INC SECADD sNEXT SECTOR ADDRESS 
SUB @<HOR+G3+DATA+G4> , RELWROD sREDUCE THE REMAINING WORD COUNT 
Se BPL 2s 3sO0F <0, WE'VE FOUND THE BAD SECTOR 
MOV (SP)+,R2 33POP STACK INTO R2 
MOV (SP)+,R1 33POP STACK INTO R1 
RTS PC sRETURN TO CALLER 


SE@ O1le2 


CZRJIKBO 


OOD YW Swufr 


010146 
062701 


101403 
013737 


012601 
000207 


002315 


002372 
002212 


002372 


JI 
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§ LP@PRRAEEEEEEEEESEEEEAERAEREREREREREDEREEEEEEEDE EEREREEEREEEEEEREREREREE ERODES 
sTHIS MODULE IS USED TO DETERMINE THE HIGHEST VALUE OF A SCRATCH FOUND WITHIN 
3; THE NEW DEFECT BUFFER. 


78 

sOUTPUTS ARE: HICYL 

3% 

sCALL 

3 JSR PC ,MAXVAL 

3 FSSA AEESESEREREREAELERAEEHEEESEEEAEAESEESASESESESEEEEEEEEOEEEEEEEREEESEEREEEEEE 


MAXVAL : 


R1,-CSP) 33PUSH R1 ON STACK 
a ADD @<7#2>,R1 ;GET THE NEXT VALUE PAST THE GAP VALUE 
MOV CR1),-CSP) 3sPUSH (R1) ON STACK 
BIC #170000, (SP) sSTRIP THE UNWANTED BITS 
CMP (SP )+,HICYL sMATCH? 
BEQ 3% sIF SO, TAKE BRANCH 
2s: ADO @<7e2>,R1 sGET NEXT BUFFER ITEM 
CMP R1, @ENDDEF ;OUT OF DEFECT BUFFER YET ? 
BL.OS 1% ;6R IF 
BR as 
3$: CMPB 3(R1),DESTRK+1 ;DO WE HAVE A TRACK ADDRESS MATCH? 
BNE 2s sIF NOT, TAKE THE BRANCH 
JSR PC, CHEKTD sAND CHECK THE EXISTING TRACK DESCRIPTOR VALUES 
TST TEMP2 sCHECK TEMP2 TO DETECT A MATCH 
BEQ 2s sIF ZERO, NO MATCH 
INC HICYL ; INCREASE THE SCRATCH’'S HIGHEST CYLINDER 
BR es sANOD LOOP 
4s: ADD @5,HICYL } ADO ANOTHER 5 TO THE SCRATCH’S HIGHEST CYLINDER 
CMP HICYL ,MAXCYL sLEGAL ADDRESS? 
BLOS S$ sIF LOWER OR SAME, YES 
- MOV MAXCYL ,HICYL 3SET UP FOR ONLY THE MAX CYLINDER 
MOV (SP)+,R1 :3POP STACK INTO R1 
RTS PC sRETURN 


SEQ 0113 


Luce 


002315 


002315 
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§ [AORROREAESEEEEEEEERESEEREEEEESEEEEEEEESESEREEESEEEDEEEOEEEREEEEESEEEEEDESEEES 
sTHIS MODULE LOOKS FOR GAPS IN THE SCRATCH DATA CONTAINED WITHIN THE NEW 


sDEFECT BUFFER. 
Ge 
sOUTPUTS ARE: 


BY 


CIF A GAP IS FOUND WITHIN 5S CYLINDERS OF THE VALUE 
SET *HIVALU’ 


OUTPUT ) 


8S PSRASASEEASEASEEEALESELESEESEEEASEEEESEEEEEEEASESESERESEAEEERESEEESEEEEEEESEEEE 


‘HICYL’ 

; 

3¢ 

CALL 

3 JSR PC ,GAPVAL 

GAPVAL : 
MOV R1,-CSP) 
BIC #170000, (SP) 
CMP (SP )+,HICYL 
BEQ es 
ADD @<7e2>,R1 
CMP R1, @ENDDEF 
BLOS 18 
BR 6% 

2s: 3(R1),DESTRK+1 
BEQ 3% 
ADD @<7e2>,R1 
CMP » ®@ENDDEF 
BLOS 
BHI 6% 

3%: MOV #5 ,,R2 
MOV (R1),DESCYL 
INC DESCYL 

4%: ADD @<7e2>,R1 
CMP R1, @ENDDEF 
BHI 6% 
cmp CR1),DESCYL 
BLO ag 

3(R1),DESTRK+1 

BEQ 5% 
INC DESCYL 
DEC Re 
BGT &$ 
BR 6% 

5$: JSR PC ,.CHEKTD 
TST TEMP2 
BEQ 6% 
MOV #5,-C(SP) 
Su8 R2,CSP) 

6s ADD CSP)+,HICYL 
MOV (SP)+,R2 
MOV (SP )+ eR1 
RTS PC 


3;PUSH R1 ON STACK 
:3sPUSH R2 ON STACK 


33;PUSH (R1) ON STACK 

sSTRIP THE UNWANTED BITS 
sMATCH? 

sIF EQUAL, THEY MATCH 

sGET NEXT BUFFER ENTRY 

sOUT OF DEFECT BUFFER YET ? 


36R IF NO 

;D0NE, IF OVERRUN 

3 ea CORRECT TRACK ADDRESS? 
i a | 

sGET NEXT BUFFER ENTRY 


sOUT OF DEFECT BUFFER YET ? 
368R IF NO 


3;D00NE IF OVERRUN 

sGET THE DELTA VALUE 

sSAVE THE CURRENT CYLINDER ADDRESS 
sAND LOOK FOR THE NEXT VALUE 

sGET NEXT BUFFER VALUE 

sOUT OF DEFECT BUFFER YET ? 

3s6R IF YES 

sCYLINDER ADDRESS MATCH? 

3 TAKE BRANCH IF NOT 

sTRACK ADORESS MATCH? 

sIF SO TAKE BRANCH 

sNEXT CYL ADORESS-PLEASE 

sONE LESS ITERATION TO GO 

sIF >0, WE'RE NOT DONE 

sIF O WE NEVER FOUND A CONTINUATION 
sGET THE NEW TD SUMMATION 

TF A SCRATCH VALUE FOUND, THIS <>0 


sAND DERIVE THE IMPLIED SCRATCH WIDTH 
sADD THAT WIDTH TO THE HIGH LIMIT 
ssPOP STACK INTO R2 


33sPOP STACK INTO R1 
sRETURN TO CALLER 


SEQ 0114 
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000016 
036072 


SEQ 0115 


i LSMASAAESEAEAEAEEEAEALEEEEEEASESEEEREEEEEERERESEASEEAEEEEEEEEEEEAESEEEEOEOEROERDEE 


;THIS MODULE IS USED AS PART OF THE SCRATCH TNTERPOLATION PROCESS IT’S PURPOSE 


sIS TO DETERMINE THE HIGHEST CONTINUOUS ADDRESS WHERE A SCRATCH HAS BEEN 


5 EFPSSHSEAEEASEAEREREASEEASEEEREEEEEEESEEEEEREEESERESEEESESEEESEEESEEEEEEEEEREEEEES 


;LOCATED. 

3% 

sOUTPUTS ARE: HICYL 

ae 

;CALL 

; JSR PC,HIVALU 

HIVALU: 
MOV R1 a ¢ SP ) 
ADD @<7e2>,R1 

002315 18: CMPB 3(R1), DESTRK+1 

BNE 2s 
JSR PC,CHEKTD 
TST TEMP?) 
BEQ 2s 
INC HICYL 

2s: ADD @<7e#2>,R1 
CMP R1, @ENDDEF 
BLOS 1% 
MOV CSP)+,R1 
RTS PC 


33PUSH R1 ON STACK 

sMOVE INPUT OVER THE FIRST DEFECT 
;TRACK MATCH ? 

sIF NOT, TAKE BRANCH 

sD0ES THE TD DATA MATCH? 

sIF TEMP2=0,NO0! 

3TAKE BRANCH IF NO MATCH 

sINCLUDE THIS CYLINCER IN THE SCRATCH AREA 
sNEXT ENTRY 

sOUT OF DEFECT BUFFER YET ? 

;6R IF 

33POP STACK INTO R1 

sRETURN 


$ § SSSHSKESSAESEESEESEAEEEAEHASEEEEAEEHEEEEEEEEEEEEEEEEEEEEEEEOEEEEEEEEEESEEEEEERE 


sTHIS MODULE IS USED TO COMPRESS DATA OUT OF THE BUFFER, THAT DATA WHICH HAS 
sBEEN INTERPOLATED AS NON-CONTIGUOUS SCRATCH DATA. THE DATA WHICH REMAINS IS 
sDATA REPRESENTATIVE OF DEFECTS ACTUALLY FOUND ON THE MEDIA, NOT INTERPOLATED 


8 F SSAASSKSSSEASESSEESEEESEEKASEAEEEEEEESEEEEEEDEEEEEEEEEEEEEE4EE4E4E66406440640006466484 


3;DATA. 

3% 

3sCALL 

3 JSR PC ,COMPRS 

COMPRS: 
MOV R1,-CSP) 
MOV Re, -CSP) 
MOV R1,R 


18: MOV CR2)+,CR1)+ 
R2, @ENDDEF 


BLOS 1% 
MOV (SP)+,R2 
MOV (SP)+,R1 
RTS PC 


3sPUSH R1 ON STACK 

33;PUSH R2 ON STACK 

3GET THE CURRENT BUFFER ADDRESS 
sGET THE NEXT ENTRY 

sCOMPRESS OVER THE CURRENT ENTRY 
sOUT OF DEFECT BUFFER YET ? 

368R IF NO 

s3POP STACK INTO Re 

33POP STACK INTO RL 


' 


——oo—OoOoOoOOeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eee ea SSS... 
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002402 
011476 


002246 
000006 
031414 


001000 


031462 


§ PARSER EAEAESEEEEEEEAEEEEERESEREEEREEESEEEEEEEDEAEREREEESEREREEEDEEEEEEEREEEES 
sTHIS MODULE OUTPUTS DATA TO THE NEW DEFECT BUFFER FOR EVENTUAL TD REWRITE OR 

ever OUTPUT TO THE BAD SECTOR FILE WHEN A TD IS FOUND TO CONTAIN 4 
; ; 


;* 
sOUTPUTS ARE: TO (R2)+, A BUFFER CALLED. 'MFGBUF’ OR TO (R4)+, A BUFFER 
; CALLED ‘BUFF 


rn 
;CALL 
3 JSR PC ,UPDSCR 
2 FP#SAAAAASSAEAREEAEEESEDEEEREREREAESERESEEASEEEEESESESEEESEEAEEEEEEEEEAEESEEEEEED 
UPDSCR: 
MOV R1,-CSP) :;PUSH R1 ON STACK 
MOV R3,-CSP) 33PUSH R3 ON STACK 
JSR PC,READTO ;CALL THE READ TD SUBROUTINE 
BR 1$ sRETURN HERE IF EXCEEDED RETRY LIMIT 
BR 2s ;ELSE RETURN HERE, NO ERROR 
aes JSR PC ,DESTD }GET DESIRED TO, BECAUSE WE FAILED THE READ 
MOV RELWRD, -( SP) 33PUSH RELWRD ON STACK 
JSR PC, INSERT sINSERT THE DEFECT IN TD 
MOV CSP )+,RELWRD 33POP STACK INTO RELWRD 
TST TMPBSF 3:00 WE HAVE ROOM IN THE TRACK DESCRIPTOR ? 
BMI 3% ;6R IF YES 
JSR PC ,.FINOBAD sFIND THE BAD SECTOR 
MOVB SECADD, TMPBSF+2 ;SAVE THE BAD SECTOR AND 
JSR PC, LOOBSF sLOAD THE BSF BUFFER 
BR S$ 
3%: INCB NEWCNT sADD ONE TO THE TOTAL DEFECT COUNT 
MOV #6 ,R3 ;GET @ OF ENTRIES IN TRACK DESCRIPTOR 
MOV @TOWRD1, R1 sGET POINTER TO BEGINNING OF TD BUFFER 
4$: MOV (R1)+, (R4)+ ;PUT THE NEW DEFECT INTO BUFFER 
DEC R3 ;00NE ALL ENTRIES YET ? 
BGT 4s :8R IF NO 
Se BIS OBITS, (CR4)+ sMARK A SCRATCH, IN THE INTERNAL STATUS 
MOV CSP)+¢,R3 33;POP STACK INTO R3 
MOV (SP)+,R1 33P0: STACK INTO R1 
RTS PC sNOW RETURN 


SEQ 0116 


N9 


CZRJKBO RPO7 FMTR/SCANNER MACRO V04.00 1-DEC-83 09:58:43 PAGE 65 SEQ 0117 
SCRATCH ROUINES 


1 
2 J FE FSMAAAAAASASASEEAABAEEAEEEEEERESERERAEEEABARESESERLALESOESEEEEESEESEEEEEEEEEEEEED 
3 ;THIS MODULE IDENTIFIES DATA WHICH REPRESENTS A SCRATCH ON THE MEDIA. THE 
4 sDATA FOUND MUST INITIALLY BE CONTIGUOUS, ON THE SAME TRACK - ADJACENT 
5 sCYLINDERS. GAPS AND THE MAXIMUM AND MINIMUM INTERPOLATED ADDRESSES ARE THEN 
4 ;DERIVED AND LOGGED IN THE NEW DEFECT BUFFER FOR EVENTUAL TO REWRITE. 
;* 

8 ;CALL 
9 JSR PC,FINSCR 
10 FF PSSSASAHAREAASESAEALASELELAESEBREEASEAEERESELEREOEESESEEEAESAEEREEEEAEHEERASEEEESD 
il 
12 025312 FINSCR: 

025312 013746 002312 MOV | DESCYL, -CSP) 33PUSH DESCYL ON STACK 

025316 013746 002314 MOV DESTRK, -(SP) 33PUSH DESTRK ON STACK 
13 025322 012737 001167 002374 MOV 0631. ,LOCYL iSET LO CYL BOUNDARY AND THE 
14 025330 012737 177777 002372 MOV @-1,HICYL sAND THE HI CYL BOUNDARY TO ILLEGAL LIMITS 
15 025336 012704 036074 MOV ODBUFF ,R4 sGET POINTER TO BEGINNING OF DATA BUFFER 
16 025342 005003 CLR R3 3R3 USED TO DETECT A TRACK MATCH 
17 025344 012701 032464 1$: MOV @OEF BUF ,R1 ;GET POINTER TO BEGINNING OF DEFECT BUFFER 
18 025350 012105 m 2s: MOV CR1)+,R5 sSAVE FIRST WORD (CYL ADRS) 
19 025352 042705 170000 BIC #170000 ,R5 sSTRIP THE STATUS BITS 
20 025356 011146 MOV CR1),-CSP) sSAVE SECOND WORD (CTRK/SEC ADRS) 
21 025360 105016 CLRB (SP) sGET RID OF LOW BYTE SF aata TRACK) AND 
22 025362 000316 SWaB (SP) sMAKE IT THE LOW BYTE OF DAT 
23 025364 022603 CMP CSP)+,R3 ;IS THERE A DEFECT ON THIS TRACK ? 
24 025366 001415 BEQ 5$ ;BR IF YES 
25 025370 062701 000014 3%; ADD @<6e2>,R1 ;POINT TO NEXT DEFECT IN TABLE 
26 025374 005711 TST (R1) 3IS NEXT ENTRY VALID ? 
27 025376 001403 BEQ 4s ;6R IF NO 
28 025400 020127 036072 CMP R1,#ENDDEF sEND y DEFECT BUFFER YET ? 
29 025404 101761 BLOS 2s ;6R IF NO 
30 025406 005203 4$: INC R3 GET NEXT TRACK 
31 025410 020327 000037 CMP R3,¢31. sLAST TRACK YET ? 
32 025414 101753 BLOS i$ ;6R IF NO 
= 025416 000137 026126 JMP 21% sNO DEFECTS FOUND 
35 025422 010137 002250 S$: MOV Ri, TEMPA sSAVE THE CURRENT TRACK 
36 025426 005205 INC RS sGET NEXT CYLINDER 
37 025430 005761 000016 6%: TST 16(R1) :IS IT VALID DATA ? 
38 025434 001764 BEQ as 36R IF NO 
39 025436 016646 000016 MOV 16(SP), -(SP) sSAVE SECOND WORD C(TRK/SEC ADRS) 
40 025442 105016 CLRB (SP) ;GET RID OF LOW BYTE CEXTRACT TRACK) AND 
41 025444 000316 SWAB £SP) ) MAKE IT THE LOW BYTE OF DATA. 
42 025446 022603 CMP CSP)+,R3 31S ge A DEFECT ON THIS TRACK ? 
43 025450 001410 BEQ 7% ;6R IF YES 
44 025452 062701 000016 ADD @<7#2>,R1 sGET THe NEXT ENTRY, PLEASE 
4S 025456 005711 TST (R1) 3IS IT VALIO DATA ? 
46 025460 001752 BEQ 4% ;68R IF NO 
47 025462 020127 036072 CMP R1, O@NODEF sEND OF DEFECT BUFFER YET ? 
48 025466 101760 BLOS 6$ 36R IF NO 
49 025470 101346 BHI 4$ ;B8R IF YES 
50 025472 016146 000014 7%: MOV 14(R1),-CSP) : SAVE FIRST WORD (CYL ADRS) 
51 025476 042716 170000 BIC #170000, (SP) sSTRIP THE STATUS BITS 
S2 025502 022605 CMP (SP)+, RS sIS THERE A DEFECT ON THIS CYLINDER ? 
53 025504 001331 BNE 3% 3BR IF NO 
54 025506 062701 000016 ADD @<7#2>,R1 ;GET THE LAST LOOKED AT ENTRY 


5S 025512 005037 002366 CLR TEMP 1 s THESE ARE USED AS DATA 


a ne 


- 
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025516 005037 002370 CLR TEMP2 
025522 012746 000004 MOV 04, -(SP) 
025526 013705 002250 MOV TEMPA,RS 
025532 005725 1ST (RS )« 
025534 005721 TST (R1)> 
025536 062537 002366 Bs: ADD (R5)+, TEMP1 
025542 062137 002370 ADD (R1)+, TEMP2 
025546 004737 024336 JSR PC, TOLRAN 
025552 023737 002366 002370 CMP TEMP1, TEMP2 
025560 001404 BEQ 93 
025562 005316 DEC (SP) 
025564 003364 BGT 88 
025566 005726 TST (SP )- 
025570 000677 BR T) 
025572 024145 98: CMP -(R1), -(RS) 
025574 021627 000004 CMP (SP), 04 
025600 001402 BEQ 108 
025602 005216 INC (SP) 
025604 000772 BR 98 
025606 005726 108: ST (SP). 
025610 016537 177774 002374 MOV -4(R5),LOCYL 
025616 042737 170000 002374 BIC #170000, LOCYL 
023727 002374 000005 CMP LOCYL, 5 
025632 101004 BHI 118 
025634 013737 002210 002374 MOV MINCYL ,LOCYL 
025642 000412 BR 128 
025644 162737 002374 118: SUB @5,LOCYL 
025652 023737 002374 002210 CMP LOCYL ,MINCYL 
025660 103003 BHIS 128 
025662 013737 002210 002374 MOV MINCYL ,LOCYL. 
025670 013737 002374 002312 12%: MOV LOCYL., DESCYL 
025676 162701 SUB Ri 
025702 011137 002372 MOV cRid giticr. 
025706 37 002314 CLR DESTRK 
025712 116137 000003 002315 3(R1),DESTRK+1 
025720 042737 170000 002372 BIC #170000, HICYL 
025726 004737 025072 JSR PC ,HIVALU 
025732 004737 024702 JSR PC; GAPVAL 
025736 004737 024564 JSR PC; MAXVAL 
025742 024545 CMP -(RS5), -(RS) 
025744 010501 MOV RS,R1 
025746 013737 002 002400 MOV TEMP 1, RELWRD 
025 013737 002374 002312 MOV LOCYL .DESCYL 
025762 138: 
025762 011146 MOV (R1),-(SP) 
025764 042716 170000 BIC #170000, (SP) 
025770 022637 002374 CMP (SP )¢ ,LOCYL 
025774 001416 BEQ 17¢ 
025776 004737 025174 14%: JSR PC, UPDSCR 
026002 005237 002374 INC LOCYL 
026006 005237 0023 INC DESCYL 
026012 023737 002374 002372 15%: CHP LOCYL ,HICYL 
026020 101760 BLOS 138 
026022 000137 025350 Jp 2% 


SEQ 0118 


sDEFECT ACCUMULATORS 

sGET @ OF DEFECT ENTRIES IN TRACK DESCRIPTOR 
sGET THE ORIGINAL BUFFER ADDRESS OF THE SCRATCH 
sMOVE UP TO THE FIRST DEFECT VALUE 

sNEXT DEFECT, PLEASE 

sACCUMULATE THIS INFORATION 

sFOR BOTH CYLINDERS WITH A COMMON TRACK 

sIS THE DATA WITHIN TOLERANCE? 

sIF SO, THESE WILL MATCH... 

s TAKE BRANCH IF SO 
sNEXT RECORD ENTRY, PLEASE 
sTRY AGAIN, IF NOT O 
sRESTORE THE STACK 

sNO MATCH, KEEP LOOKING 


sBACK UP THE POINTERS TO THE LAST DEFECT 
sWHICH DEFECT MATCHED? 

sIF (SP) MATCHES 4, IT IS THE CURRENT ONE. 
sAND TALLY THE EVENT 

sKEEP GOING 


sRESTORE THE STACK 

sGET THE LO CYLINDER ADORESS FOR THE SCRATCH 
sSTRIP THE MASK BITS 

sIS THE CYLINDER ADDRESS > 5? 

sIF SO, TAKE BRANCH 

sSET UP FOR THE FIRST LEGAL CYLINDER 

sAND KEEP GOING 


sREOUCE THE LOWEST SCRATCH ADDRESS BY 5 

sLEGAL ADORESS? 

sIF «>, YES 

S CREATE THE LEGAL ADORESS 

sSET UP FOR THE ORIVER 

sMOVE R1 TO CYL ADORESS OF BEGINNING OF SCRATCH 

+ {ht py FOUND HIGHEST CYL ADDRESS OF THE SCRATCH 
8 ° ° 


sGET THE HIGHEST FOUND VALUE 

sLOOK FOR GAPS; IE HEAD BOUNCES 

sGET THE LARGEST SCRATCH VALUE 

sBACK UP THE POINTER TO BEGINNING OF THE DEFECT RECORD 
sGET THE os) he SCRATCH DATA 

sLOAD THE DAT 

sGET THE STARTING CYLINDER ADDRESS 


33PUSH (R1) ON STACK 

sSTRIP THE UNWANTED MASK 

sIN RANGE? 

s TAKE BRANCH IF SO 

sUPDATE THE SCRATCH INFORMATION 
sFINISHED WITH THIS CYLINDER, 

sGET THE NEXT CYLINDER IN THE SEQUENCE 
PSTILL IN RANGE? 

sIF <*#, YES 

3GO BACK AND LOOK FOR ANOTHER SCRATCH 


ee ee 
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112 
113 026026 0€2701 000016 168: ADD @<7e2>,R1 sNEXT BUFFER ENTRY, PLEASE 
114 026032 026637 177776 002372 173%: CMP -2(SP),HICYL sSTILL IN RANGE? 
115 026040 101402 BLOS 188 sIF SO, TAKE THE BRANCH 
ae 026042 000137 025406 as sGET THE NEXT TRACK AND LOOK FOR ANOTHER SCRATCH 
116 126137 000003 0023515 188: CéMPB 3(R1),DESTRK+1  ,TRACK MATCH ? 
119 026054 001402 BEQ 198 sIF SO, LOG THE DATA 
120 026056 103765 BLO 16% sIF LOWER, KEEP MOVING THROUGH THE BUFFER 
121 026060 101346 BHI 14% sIF HIGHER, GET THE TD FROM THE DISK, AND UPDATE IT 
122 026062 012705 000007 19%; MOV @7,R5 37 ITEMS / RECORD 
123 026066 012124 208: MOV (R1)+,CR4)> sLOG THIS SCRATCH DATA 
124 026070 DEC RS sONE LESS ITEM / THIS RECORD 
125 026072 003375 6GT 20% sKEEP GOING UNTIL RS = O 
126 026074 162701 000016 SUB @<7e2>,R1 sBACK R1 UP TO THE TOP OF THIS RECORD 
127 026100 004737 025144 JSR PC ,.COMPRS sSTRIP OUT THIS DEFECT, AND COMPRESS THE BUFFER 
1286 026104 005237 002312 INC DESCYL sNEXT DESIRED CYLINDER PLEASE 
129 026110 005237 002374 INC LOCYL sONE LESS CYLINDER 10-GO 
130 026114 020127 036072 CMP R1, CENDDEF sEND OF DEFECT BUFFER YET ? 
131 026120 101734 BLOS 15% s6R IF NO 
4 026122 000137 0253550 2s sGET THE NEXT CYLINDER ADDRESS 
134 026126 012701 032464 218: MOV @DEF BUF ,R1 sGET POINTER TO BEGINNING OF DEFECT BUFFER 
135 026132 012705 000007 22: MOV @7,R5 sSEVEN ENTRIES / RECORD 
136 026136 012124 23%: MOV (R1)+,(R4)> sLOG THE NON SCRATCH RELATED DATA 
137 026140 005305 DEC RS sONE LESS ENTRY THIS RECORD 
138 026142 003375 BGT 23% s00 UNTIL RS = O 
139 026144 005711 TST (R1) sIS NEXT ENTRY VALID DATA ? 
140 026146 001371 BNE 228 3BR IF YES 
141 026150 012637 002314 MOV (SP)+,DESTRK s3sPOP STACK INTO DESTRK 
026154 012637 002312 MOV (SP )+,DESCYL ssPOP STACK INTO DESCYL 
142 026160 RTS PC 


O@nsoyvi autor 


031414 
002312 
170000 


002314 
002314 


031414 
031444 


002312 
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BE SSOSASEHESEEEEEHESEASEES ESE SEEEEEEEESEEEEEEEEEEEEEHEDESEEEEEEEEEEEEEEEEEEEEEKE 


sTHIS MODULE IS USED BY THE SCANNER MODE OF OPERATION 


14 

s INPUTS ARE: FROM (R1)+,CR1)+,CR1)+,CR1)+,CRLD+,CR1)+,CR1)> 

i 

sOUTPUTS ARE: DESCYL, DESTRK, TRACK DESCRIPTOR BUFFER CALLED ‘ TOWRD1’, 
3 UPDATE DEFECT BUFFER POINTER IN R1 AND TEST THE INTERNAL 
H DEFECT STATUS BEFORE RETURNING. 


34 
:THIS MODULE IS CALLED BY: MAIN 
8S SSOHHAHHAASHESSESESASEEEESEESEEEHEEEEEESESSASEEEEEEESEESEEEEESEEEEEEEEEEEEESEEESEEEEEED 


LOADTD: 


MOV RO, -( SP) :3sPUSH RO ON STACK 
MOV @TOWRD1, RO sGET POINTER TO BEGINNING OF TD BUFFER 
MOV (Ri), DESCYL 3LOAD THE DESIRED CYLINDER ADDRESS AND 
BIC #1 70000 , DESCYL sSTRIP OFF STATUS BITS. 
MOV CR1)+,CRO)> sLOAD CYLINDER ADDRESS INTO TD WORD @1 
MOV CR1),DESTRK sLOAD THE TRACK ADDRESS AND 
CLRB DESTRK 3 THE SECTOR ADDRESS. 
MOV CR1)+,CRO)> sLOAD TRACK/SECTOR ADRS INTO TD WORD @2 
MOV CR1)+,CRO)> sLOAD TD WORD 63, 
MOV CR1)+,CRO)D> 3TO WORD 04, 
MOV CR1)+,CRO)> sTO WORD ° 
MOV CR1)+,CRO) 3sAND TD 
MOV (SP)+,RO 33POP STACK INT 
BIT OBITS,CR1)+ 3sGET R INTERNAL STATUS WORD AND 
sTEST DEFECT STATUS BIT IN TD LIST. 
RTS PC 3s TAKE THE RETURN NOW 
8 §O0066000666000666606666006600066606606666606066000666006600060650000006000006000088 
sTHIS MODULE IS USED TO SAVE THE CONTENTS OF A BUFFER CALLED ‘TOWRD1’ IN THE 
3A BUFFER CALLED ‘TOTMP1'. 
34 
s INPUTS ARE: TOWRD1 - TOWRD6 
3 
sOUTPUTS ARE: TOTMP1 - TOTMP6 
ie 
sTHIS MOOULE IS CALLED BY: MAIN 
§ §OO0666066666066666666060066666666066666606060000666600000606606060000006060000000008 
SAVETDO: 
MOV RO, -CSP) 33PUSH RO ON STACK 
MOV R1,-CSP) 33PUSH R1 ON STACK 
MOV @TOWRD1 ,RO sGET POINTER TO BEGINNING OF TO BUFFER 
MOV @TOTMP1 RI sGET POINTER TO wapeoatiinatiee OF TD TEMP. BUFFER 
MOV (RO)+,(R1)« sSAVE TO WORD @ 
MOV CRO)+,CR1)> 3TO WORD 2, 
MOV CRO)+, CRI Do 3TO WORD ° 
MOV CRO)+, CR1 Do 370 WORD o4, 
MOV CRO)+, CR1)D+ 3TO WORD 05, 
MOV CRO),CR1) sAND TO WORD #6. 
MOV (SP)+,R1 33POP STACK INTO R1 
aan | 33POP STACK INTO RO 


ee 


SEQ 0120 
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54 | ap ra a tte tre ge ae rere gt gpg ee gee ae 
55 THIS MODULE IS USED TO RESTORE THE CONTENTS OF A BUFFER CALLED ‘TOTMP1’ WITH 
+4 Te CONTENTS OF A BUFFER CALLED ‘TOWRDI'. 
+4 INPUTS ARE: TOTMP1 - TOTMP6 
3 
4 sOUTPUTS ARE: TOWRDI - TOWRD6 
34 
be s;THIS MODULE IS CALLED BY: MAIN 
63 ; F SPOS HASEEHEEEASESESEEEEEEHEEEEOELESESESEEEEEEEEEEEEEEEEEEEEEEEEESEEEEREDAESEEREDRE 
64 
65 026274 RESTTD: 
026274 010046 MOV RO, -(SP) + sPUSH RO ON STACK 
026276 010146 MOV R1,-(SP) +sPUSH R1 ON STACK 
66 026300 012700 031444 MOV @TOTMP1,RO sGET POINTER TO BEGINNING OF TD TEMP. qurrer 
67 026304 012701 031414 MOV @TOWRD1,R1 sGET POINTER TO BEGINNING OF TD BUFFE 
68 026310 012021 MOV (RO)+,(R1)> sSAVE TD WORD @1, 
69 026312 012021 MOV (RO)+,CR1)> sTD WORD ¢2, 
70 026314 012021 MOV (RO)+, CRI) sTO WORD @3, 
71 026316 012021 MOV CRO)+,CR1)« sTO WORD 04, 
72 026320 012021 MOV (RO)+,CR1)« sTD WORD 45, 
73 026322 011011 MOV (RO),CR1) sAND TO WORD 66. 
74 026324 012601 MOV (SP)+,R1 33sPOP STACK INTO R1 
026326 012600 MOV (SP)+,RO 3sPOP STACK INTO RO 
7S 026330 000207 RTS PC 
77 8S SSHSSHSEHESSHSOEASSEEEEESSESEEEESESE OHEEHEADEEEEEEEEEEEEEEEEEEEEOEEEEEEEEEEEERESE 
78 sTHIS MODULE IS USED WHENEVER THE TD CANNOT BE READ CORRECTLY AND THE 
79 sDESIRED CYLINDER/TRACK/SECTOR ADDRESSES MUST BE SETUP IN THE TD BUFFER. 
$0 sALSO, THE FOUR DEFECT WORDS OF THE TD ARE NULLED. 
34 
4 sINPUTS ARE: DESCYL, DESTRK 
3 
= sOUTPUTS ARE: TO TRACK DESCRIPTOR BUFFER CALLED ‘ TOWRD1' 
ye 
86 sTHIS MODULE IS CALLED BY: MAIN 
4 $ BS SOSSSSEKSEESEESASEEEEESESEEESSEOESEESEASESEEESEHESEEEEEESES COSKEEEEREEEAEEEEEDESE 
89 026332 DESTO: 
026332 010046 RO, -(SP) 3sPUSH RO ON STACK 
90 026334 012700 031414 MOV eT 2RO sPOINT TO BEGINNING OF TD BUFFER 
91 026340 013710 002312 MOV DESCYL (RO) sLOAD THE CYLINDER ADDRESS AND 
92 026344 0527. 0 eIs @BITI3S!BIT12,(RO)+ sMARK WORD AS TO & FMT16 IN TD WORD @1 
93 026350 013710 002314 MOV DESTRK, (RO) sLOAD THE TRACK ADDRESS AND 
94 026 0527. 000377 BIS @377,(RO)+ sTHE SECTOR ADORESS IN TD WORD @2 
95 012720 140000 MOV @NULL ,(RO)> sNULL TD WORD #3, 
96 026 012720 140000 MOV @NULL ,CRO)> 3TD WORD 04, 
97 026370 012720 140000 MOV @NULL , (RO)> sTO WORD 5, 
98 026374 012710 140000 MOV @NULL , (RO) sAND TO WORD 6. 
99 026400 012600 MOV (SP)+,RO 33POP STACK INTO RO 
100 026402 000207 RTS PC ;TAKE THE RETURN NOW 


Ee eR ee ee 


CZRJKBO 


SCRATCH ROUINES 


F10 
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012701 
012703 
00S 


002240 
036072 


000014 
000014 


5 FPPRORESEEEEEEEEEEEREEEEEEESEEEREDARESEEEDAEEEESEEEEEDEDRERDEEEDDEEREEEEEEEES 
sTHIS MODULE IS USED TO RESTORE THE MASTER BUFFER ‘DBUFF’ BETWEEN ITERATIONS 


3O0F THE SC 


ANNER 


33 POU YTTTOTTTTTT TIT TTITITE TTT TTT TTT TTT TTT TTT TTT TTTT TTT TTT TTT TTT TTT TTT TTT TT Ter 


RESTOR: MOV 
MOV 
1%; TST 


2s: 


5%: RTS 


@DEF BUF ,R1 
—_ 

5 
a 
_— 
@<7a#2>,R3 
R3, @ENDBUF 


i$ 
S$ 


@7,R4 
C(R3)+¢,CR1)+ 


sGET POINTER TO BEGINNING OF DEFECT BUFFER 
1GET POINTER TO BEGINNING OF DATA BUFFER 
+s pe A DEFECT ENTRY HERE ? 

nD ves. AN INTERPOLATED SCRATCH ? 

a ves. BIT SET IN STATUS ? 

’ 

:00 NOT RESTORE ENTRY BACK TO DEFECT BUFFER 
sDONE WITH BUFFER YET ? 

36R IF NO 


sSEVEN ENTRIES / RECORD 

sRESTORE THE ORIGINAL BUFFER 

sONE LESS + Abed THIS RECORD 

300 UNTIL R4 = O 

sSAVE THIS THE 1ST UNUSED LOCATION FOR NOW 
ef _" ECT BUFFER YET ? 

; 


SEQ 0122 


G10 
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REPORT CODING SECTION 


026502 


G26502 
026504 


026506 
026506 


000167 
000000 


104425 


-SBTTL REPORT CODING SECTION 


see 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


ge 

LSRPT:: 
. WORD 
. WORD 
-EVEN 


10007: 
TRAP 


J$ UMP 


L10007-2-. 


CSRPT 


SEQ 0123 


H10 
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PROTECTION TABLE 


, -SBTTL PROTECTION TABLE 
3 3¢ 
4 3 THIS TABLE IS USED BY THE — SERVICES 
; ; TO PROTECT THE LOAD MEDIA 
“2 
7 
8 026510 L$PROT:: 
9 026510 000000 1) 3P-TABLE OFFSET OF CSR 
10 026512 177777 -1 sNOT A MASSBUS DEVICE 
11 026514 000006 6 3P-TABLE OFFSET DRIVE @ 


13 


SEQ 0124 


L10 
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INITIALIZE SECTION 


OWOnt VSwufor 


000034 


000036 


002247 


000040 


027260 
002114 
177777 


004634 
000001 


-SBTTL INITIALIZE SECTION 


tee 


s THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
3 AT THE BEGINNING OF EACH PASS. 


>= 
LSINIT:: 


1%: 


2s: 


38; 
4%; 


5%: 


6%: 


CSRESET 


EF .PWR,RO 
CSREFG 


1% 


CsExIT 
L10011 a 


@€F .CON,RO 
CSREFG 


es 
CONFLG 
CsExIT 
110011 "es 


@€F .RES,RO 
CSREFG 


3% 

EF .STA,RO 
CSREFG 

3% 

15% 

LSTEST 

@-1 

6% 


@FRMTSO, -C SP) 
#1, -(SP) 

SP ,RO 

CSPNTF 

@4,SP 


@FRMTS1, -C SP) 
#1, -(SP) 
SP 


sRESET 


sPOWER FAIL START ? 


3GO TO 


THE WORLD 


1¢ IF NO 


sEXIT IF YES 


sCONTINUE COMMAND ? 


sGO TO 2¢ IF NO 


s INDICATE CONTINUE COMMAND AND EXIT 


sRESTART COMMAND ? 


3GO TO 


38 IF YES 


sSTART COMMAND ? 


sPRINT 


sPRINT 


3¢ IF YES 
1S¢ IF NO 


TEST NUMBER 
a THRU HERE ? 


THE HELP MESSAGE 


THE HELP MESSAGE 


‘OPTIONS (6*HELP) (D) O ?' 


SEQ 0125 


CZRJKBO RPO7 FMTR/SCANNER MACRO 
INITIALIZE SECTION 


43 026672 005037 002156 
44 026676 013737 002214 
4S 026704 005737 002160 
47 026712 023727 002160 
49 026722 023727 002160 


4 026732 005237 002156 


SS 026754 005737 002156 


74 027044 005737 002156 


J10 
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002212 


10000$: 


7$: 


100018: 


10003$: 


TSCODE 
MESG7 


7 
TSLOLIM 
TSHILIM 


ANYWHR 
TMPCYL ,MAXCYL 
— 


sDEFAULT; ACCESS TO FE CYLINDER ONLY 
sRESTORE MAXIMUM CYLINDER VALUE 
sFORMAT OPTION ? 


;BR IF Y 
; ALLOW ACCESS TO ANYWHERE ON THE MEDIA 


sPRINT ‘DO YOU WANT TO WRITE ANYWHERE ON MEDIA?’ 


sSEE IF ACCESS IS TO ANYWHERE ON THE MEDIA, 
ANCH IF NOT, ELSE 

sTELL USER THAT DATA WILL BE DESTROYED. 

sPRINT ‘! CUSTOMER DATA WILL BE OVERWRITTEN ! 

3 Clete eee eee ee ee ee | 

; CONTINUE ?° 


sPRINT HELP MESSAGE ? 
3B8R IF YES 

sWHAT IS OPTION ? 

sBRANCH IF MODIFY OR WRITE FE-2 

sELSE, OPTION IS FORMAT, VERIFY, SCAN OR LIST 
iDEFAULT TO ‘N’ FOR CHANGE PARAMET ERS 

sPRINT ‘CHANGE ORIVE PARAMETERS (L) N ?° 


sCHANGE DRIVE PARAMETERS ? 
s8R IF NO 


SOON’ T ALLOW MIN/MAX CYLINDER TO BE CHANGED, 
sIF ACCESS IS TO FE CYLINDER ONLY, ELSE 
{PRINT ‘MIN CYL (D) O ?' 


SEQ 0126 
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c 
INITIALIZE SECTION 


RES 


SLEFES 


027212 
027214 


000406 
002210 
000052 


000000 
001166 


023727 
001006 


104443 
000404 


002212 002214 


002160 


002160 000002 


10004$;: 


10005$: 
9$: 


100068 : 


100078: 
108%: 
11%: 


100108: 
12%: 


10004 $ 
MINCYL 
T$CODE 
MESG15 
1777 
TSLOLIM 
TSHILIM 


TSHILIM 


K10 


MAXCYL , TMPCYL 


TSLOLIM 


TSLOLIM 
TSHILIM 


OPTION 
12$ 


C$GMAN 
10010% 
NOWRCK 


T$CODE 
wanes 


OPTION, #2 
13% 


C$GMAN 
10011% 


sPRINT ‘MAX CYL (D) 630 ?' 


sSAVE MAXIMUM CYLINDER VALUE 
sPRINT ‘MIN TRK (D) O ?' 


sPRINT ‘MAX TRK (D) 31 ?' 


sFORMAT OPTION ? 
368R IF NO 
sPRINT ‘INHIBIT WRITE CHECK ?°' 


3SCAN OPTION ? 

;68R IF NO 

sPRINT ‘DO YOU WANT TO RE-WRITE TOCS) WITH 
r NEW DEFECTS ?° 


SE@ 0127 


Pony Oe ne eee 


CZRJKBO RPO7 FMTR/SCANNER MACRO V04.00 1-DEC-83 


INITIALIZE SECTION 


027216 


100118: 
002160 000003 13%: 


100128: © 


OPTION, #3 
14% 


sLIST OPTION ? 
BR IF 


$ IF NO 
;PRINT ‘LIST HEADERS OF DEFECT SECTOR(S)?’ 


SEQ 0126 


M10 
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INITIALIZE SECTION 


OOnaOvsSufr 


027306 
027312 


027314 


012737 
00S2 


012721 


sSETUP UNIT TO BE TESTED FROM P-TABLE AND DETERMINE WHAT OPTION 


sSHOULD BE PERFORMED 


sINITIALIZE FOR UNIT O ON START 


s INCREMENT TO NEXT UNIT 
HARDWARE P-TABLES 
sOUT OF UNITS TO TEST ? 


sLOAD THE TOP OF THE CONTROL FILE 


NO! 
;LOAD THE TOP OF THE CONTROL FILE 
sAND RESET IT 


NO! 
;SET R1 = THE TOP OF THE COMMAND QUEUE 


sSET WRITE FE-2 OPTION 


177777 002420 14%: MOV @-1,UNIT 
002420 15%: INC UNIT 
016322 JSR PC, TABELD sLOAD THE 
002420 002012 CMP UNIT, LSUNIT 
BLT 16% ;BR IF NO 
TRAP CSOCLN 
TRAP CSExIT 
«WORD 110011- 
16%: 3SET PRIORITY TO 7 
000340 MOV @PRIO7,RO 
TRAP CsSPRI 
sRESET SOME COMMON TABLES AND PARAMETERS 
MOV R1,-CSP) 33PUSH R1 ON STACK 
002162 MOV OF ORMT RI 
17%: CLR CR1)+ sAND RESET IT 
002174 R1, OWRTFED sF INISHED? 
BLOS 17$ 3IF NOT >, 
002242 MOV @FIRPAS,R1 
18%: CLR CR1)+ 
002320 CMP R1, @SAVTRK iF INISHED? 
BLOS 18% 3IF NOT >, 
002600 MOV @CMDQUE ,R1 
sFIND WHAT OPTION WAS SPECIFIED 
002160 TST OPTION sFORMAT OPTION ? 
BNE 19% ;6R IF NO 
002162 ope 3SET FORMAT OPTION 
002160 000001 19%: CMP OPTION, #1 ;VERIFY OPTION ? 
BNE $ 382 IF 
002164 pe = sth 3SET VERIFY OPTION 
002160 000002 20%: CMP OPTION, #2 sSCAN OPTION ? 
BNE 1$ :BR IF NO 
002166 a — sSET SCAN OPTION 
002160 000003 21%: CMP OPTION, #3 sLIST OPTION ? 
BNE 22% 368R IF NO 
002172 pe + td sSET LIST OPTION 
002160 000004 22%: CMP OPTION, 04 sMODIFY OPTION ? 
BNE 23% 368R IF NO 
002170 pe — iSET MODIFY OPTION 
002174 23%: INC WRIFE2 
BR 25% 
sENTER HERE TO FORMAT HEADERS € DATA 
000075 24%: MOV ROTO, CR1)+ 


sLOAD THE READ TD OPERATION 


ee 


N10 


CZRJKBO RPO7 FMTR/SCANNER MACRO VO4.00 1-DEC-83 09:58:43 PAGE 72-1 
INITIALIZE SECTION 


027470 


027472 
027476 
027502 


027504 


027510 
027514 
027520 


027522 


027526 
027532 
027534 


82 027536 


027540 
027540 


027542 
027544 


027546 
027546 


000411 


012721 
012721 
00411 


005037 


012721 


012721 
000402 


012721 


022701 


104411 


000075 
000073 


002416 


000065 
000063 


000075 


002612 


25$: 


110011: 


BR 27% 

sENTER HERE TO VERIFY TOCS) & HEADER(S) 

MOV @RDTD,CR1)+ sLOAD THE READ TD OPERATION 

- + paieeaat sLOAD THE READ HEADER AND CATA FUNCTION 


sENTER HERE TO MODIFY TOCS) 


CLR MORE TD sDEFAULT TO NO MORE TD‘S TO MODIFY 
3 THE READ TD COMMAND IS IMBEDDED IN THE 
s'INPUTD’ SUBROUTINE 

MOV @WRTTD,CR1)+ sLOAD THE WRITE TD OPERATION 


MOV OFMTRK,CR1)+ s;LOAD THE FORMAT TRACK OPERATION 
BR 29% 

sENTER HERE TO LIST TOCS) WITH DEFECTS 

MOV @RDTO,CR1)+ sLOAD THE READ TD OPERATION 


sENTER HERE TO SCAN FOR NEW DEFECTS 

CMP @CMDQUE+10.,R1 ;QUEVE FULL? 
30$ ; TAKE BRANCH IF SO 

CLR CR1)+ ;ZERO THE BALANCE OF THE QUEUE 
29$ sAND DO UNTIL QUEVE IS DONE 


MOV (SP)+,R1 3sPOP STACK INTO R1 


TRAP CsExIT 
-WORD 1L10011-. 


TRAP CSsINIT 
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AUTODROP SECTION 


ODA Viator 


+ 027550 
18 027550 
027550 104461 


-SBTTL AUTODROP SECTION 


*e 


Bil 


SEG S131 


s THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 


3s THE “ADR” FLAG WAS SET. 


THE UNIT(S) UNDER TEST ARE CHECKED 10 


s SEE IF THEY WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY 


3 DROPPED FROM TESTING. 
ge 


LSAUTO:: 


L10012: 
TRAP CSAUTO 


| 
| 
| 
| 
| 
| 
| 
SE ol a EST, eh RT ee a ge SS ee 


Vad 


Cil 
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CODING SECTION 


012700 
104441 
012777 
013777 


000340 


152662 
152654 


. SBT TL 


CLEANUP CODING SECTION 


see 
3 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
s AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


LSCLEAN:: 


@PRIO7,RO 
CsSPRI 

@CLR ,@RPCS2 
DRVNO, @RPCS2 


@CRLF , -(SP) 
#1, -(SP) 

SP ,RO 
CSPNTF 
@4,SP 
LSTEST 


DEF 2, -( SP) 
Ri, -(SP) 


sSET PRIORITY TO 7 


sMASSBUS INIT TO CLEAR IMPENDING INTERRUPTS 
se NUMBER 
3 - 


s0ID PROGRAM ENTER TEST 1 ? 
3;8R IF YES 


sR1 = 1 
sPRINT ‘TRACKS WITH 1 DEFECTS= ' 


sR1 = 2 
sPRINT ‘TRACKS WITH 2 DEFECTS= °‘ 


sR1 = 3 
sPRINT ‘TRACKS WITH 3 DEFECTS= ' 


— ANY TRACKS WITH 4 DEFECTS ? 
3 

sPRINT ‘WARNING @¢ THERE ARE X. TRACK(S) 
’ WITH 4 DEFECTS’ 


SEG 0132 


CZRIKBO 
CLEANUP 


Dil 
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CODING SECTION 
027756 012746 005157 MOV OF RMT62, -( SP) 
027762 012746 000003 MOV 03,-(SP) 
027766 010600 MOV SP ,RO 
027770 104417 TRAP CSPNTF | 
027772 062706 000010 ADD #10,5P 
027776 2s: sPRINT ‘TOTAL DEFECTS FOUND= x.’ | 
027776 013746 002254 MOV DEFCNT, -( SP) 
030002 012746 003600 MOV @FRMT13,-(SP) 
030006 012746 000002 MOV @2,-(SP) 
030012 010600 MOV SP ,RO 
030014 104417 TRAP CSPNTF 
030016 062706 000006 ADO 6 ,SP 
sPRINT ‘DONE, RETRIES MADE= X., ERRORS DETECTED= x’ 

030022 013746 002 MOV ERTTL, -(SP) 
030026 013746 002270 MOV ERRTTL, -(SP) 
030032 012746 003437 MOV @FRMT11,-C(SP) 
030036 012746 000003 MOV @3,-(SP) 
030042 010600 MOV SP ,RO 
030044 104417 TRAP CSPNTF 
030046 062706 000010 ADO #10,SP 
030052 104432 TRAP CSEXxIT 
030054 000002 .WORD 1L10013-. 

.EVEN 
030056 L10013: 
030056 104412 TRAP CSCLEAN 


L_ 


c.e 
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DROP UNIT 


O@BnOYV aww 


SECTION 


104453 


-SBTTL OROP UNIT SECTION 


zee 


; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


s TO NO LONGER BE TESTED. 


L$OU:: 
. WORD 
. WORD 
.EVEN 
110014: 
TRAP 


J$ UMP 


L10014-2-. 


Cs0uU 


SEQ 0134 


SE ne 
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ADD UNIT SECTION 


Bao Nawufror 


9 030066 


000167 
000000 


104452 


Fil 


-SBTTL ADD UNIT SECTION 


Pr 
s THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
s TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 

' 


s TO THE TEST CYCLE. 
Ries 


L$AU:: 
-WORD J$JMP 
-WORD 1L10015-2-. 
EVEN 

L10015: 
TRAP C$AU 


Gil 
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HARDWARE TESTS 


115 030310 
116 
117 030312 


002222 
002312 
002212 
002262 
031126 
002174 


021050 
031126 


017714 
031474 


011626 


032462 


002226 


002312 
002314 


-SBTTL HARDWARE TESTS 


-SBTTL TEST 1: FORMAT SECTION 


ao 
+ TEST #1 


Ti:: 


18: 


4$: 


S$: 


6%: 


78: 


18 

cate’ DESCYL 
MINTRK ,DESTRK 
DESTRK 

CONFLG 

ANY WHR 

2s 

LSCYL, -(SP) 
(SP) 
(SP),DESCYL 
SOF SW 

3% 

ExIT1 

WRIFE2 

4a 


& 
PC ,.FETWO 
ExIT1 


PC ,ROBSF 
OF GBUF +8. ,R2 


R2, ENTBSF 
CR2) 

6% 
CR2)¢,CR2)+ 
> rrtanael 


8% 
CRS), @WRTTD 


sRESET NO ERROR STATUS, 

sRESET RETRY COUNT TO O AND 

sTHE RESET SCAN ITERATION COUNT. 

sLOAD THE ERROR LIMIT 

sINITIALIZE THE DEVICE 

— — COMMAND ? 

’ 

sLOAD THE MINIMUM DESIRED — 

sLOAD THE MINIMUM DESIRED TRACK 

sTRACK ADDRESS IS THE HIGH BYTE 

sCLEAR CONTINUE FLAG 

sSEE IF ACCESS IS TO ANYWHERE ON THE MEDIA, 
sBRANCH IF SO, ELSE 

1GET LAST USER CYLINDER ADDRESS AND 
sMAKE THE FIRST FE CYLINDER. 

sSETUP THE DESIRED CYLINDER 

sSETUP THE MAXIMUM CYLINDER 

sOIO ORIVE INITIALIZE OK? 

sBR IF YES 

sJUMP TO EXIT 


sARE WE WRITTING 2ND FE CYLINDER 7 
sBR IF NO 


:G0 FORMAT FE CYLINDER 2 
sJUMP TO EXIT 


sREAD BAD SECTOR FILE (DEC 144 FILE) 


2 AND 2 ALL O'S 
sUPDATE POINTER FOR NEXT ENTRY INTO BSF 
sIS THERE ANY ROOM IN THE BSF ? 
36R IF YES 
sNEXT POINTER ENTRY, PLEASE 
sEND OF BUFFER YET ? 
36R IF NO 


3>>>>>>>>>>2BREAK BACK TO MONITOR<<<<ccceecc< 


sSEE IF SCANNER MODE WAS ENABLED, 
sBRANCH IF YES, ELSE 

sMUST BE FORMAT, VERIFY OR MODIFY MODE. 
sGET THE LIST OF COMMANDS 

sIS THE COMMAND A READ TD ? 

sBR IF NO 


;CALL THE READ TO SUBROUTINE 
sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE RETURN HERE, NO ERROR 


sIS THE COMMAND A WRITE TD ? 


SEQ 0136 


Hit 
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: FORMAT 


SECTION 


012006 


002404 
015452 
000075 
017614 
013402 


8$: 
9%: 


002404 


108%: 


118: 


128: 
002212 


13%: 


9¢ 

C$MANI 

98 

PC, INPUTD 


C(RS)+ 
CRS) 


10% 
CRS)+,FUNCTN 
PC ,MAKTRK 
12% 
@ROHD , FUNCTN 


10% 
PC, VERIFY 
10% 


PC, SPIRAL 
_— eMAXCYL 
PC ,WRIBSF 
EXxIT1 


sBR IF NO 


sCALL THE INPUT TD SUBROUTINE 


sPOINT TO NEXT COMMAND IN QUEUE 
sANY MORE COMMANDS IN QUEUE ? 

3;6R IF NO 

sTHIS IS A FORMAT OR VERIFY COMMAND 
sNOW EXECUTE THE COMMAND 

sRETURN HERE IF EXCEEDED RETRY LIMIT 
sELSE eg HERE, NO ERROR 

31S jo Ae VERIFY COMMAND ? 


3;BR NO 

sANY MIS-COMPARES DURING HEADER VERIFY ? 
3;BR IF NO 

sREPORT THE ERROR 


sIS LIST OPTION ENABLED ? 
3;B8R IF NO 


sCALL SUBROUTINE TO LIST THE TOCS) WITH DEFECTS 
sINCLUDE THIS DATA IN THE DEFECT COUNT 

;1IS py TO MODE ENABLED ? 

3 

300 WE HAVE ANYMORE TO’S TO MODIFY ? 
3;8R IF YES 


sGET THE NEXT SEQUENTIAL DISK ADORESS 
Or te CYLINDERS YET ? 


BR IF NO 
;WRITE THE BAD SECTOR FILE 
sJUMP TO EXIT 


SEQ 0137 


CZRIKBO 
TEST 1: 


OOO sunrr 


Til 
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SCAN SECTION 


012737 


101774 
012701 


104422 
013737 
013737 


004737 
000407 


177777 


013402 
177777 
002242 


002252 


002240 


002316 
002320 


002212 


002312 
002314 


-SBTTL TEST 1: SCAN SECTION 


SCAN: 


1%: 


2s: 


9%: 


@-1,SUPRSS 
NEWCNT 

FIRPAS 

@DEF BUF ,LASLOC 
ODEF BUF ,F1 
(R1)+ 

t) » P@ENDBUF 
@DEF BUF ,R1 
CsBRK 

DESCYL ,SAVCYL 
DESTRK, SAVTRK 


PC, TOSCAN 
ay 
PC ,HOSCAN 
4$ 


PC .DASCAN 
as 
S$ 


PC ERRORS 
@-1,SUPRSS 


FIRPAS 

8$ 

PC, SPIRAL 
NEWCNT 

10% 

DESCYL ,MAXCYL 
2s 

108 


PC ,GETNEX 
_— »LASLOC 


1 

SAVCYL ,DESCYL 
SAVTRK ,DESTRK 
PC, SPIRAL 

198 


sSUPRESS THE ERROR MESSAGE OUTPUT 

sRESET THE LOCAL DEFECT COUNTER AND 

sFIRST PASS OF SCAN FLAG 

sSAVE LOCATION OF LAST DEFECT IN BUFFER 
sGET POINTER TO BEGINNING OF DEFECT BUFFER 
s INITIALIZE DEFECT AND DATA BUFFERS 

sDONE BUFFERS YET 7? 


;68R IF NO 
sGET POINTER TO BEGINNING OF DEFECT BUFFER 
3>>>>>>>>>>BREAK BACK TO MONITOR<<<<ceeecc 


sSAVE THE DESIRED CYLINDER AND 
sDESIRED TRK/SEC ADDRESSES BEFORE SCANNING. 


sLOOK FOR A CORRUPTED TD 
sRETURN HERE IF ERROR 
sELSE RETURN HERE, NO ERROR 


sLOOK FOR A CORRUPTED HEADER 
sRETURN HERE IF ERROR 
sELSE RETURN HERE, NO ERROR 


sLOOK FOR DATA DEFECTS 
sRETURN HERE IF ERROR 
iELSE RETURN HERE, NO ERROR 


sREPORT ERROR, IF SUPRSS=0 
sSUPRESS THE ERROR MESSAGE OUTPUT 


3IS THIS THE 2ND PASS OF SCAN ? 

38R IF YES 

3sGET THE NEXT ea, DISK ADDRESS 
SS re BUFFER FULL ? 

3 

3s DONE mt SeVLINDERS YET ? 

36R IF NO 


sGET THE NEXT DISK ADDRESS IN DEFECT BUFFER 
sOONE CHECKING THE CORRECTED DEFECTS ? 


38R IF NO 

sGET LAST LOCATION IN DEFECT BUFFER AND 
sINITIALIZE REST IT. 

sDONE BUFFER YET ? 

36R IF NO 

sANY NEW DEFECTS FOUND ? 

36R IF YES 

sRESTORE THE DESIRED CYLINDER AND 
sTRK/SEC ADDRESSES. THEN 

sGET THE NEXT SEQUENTIAL OISK ADDRESS. 


sSEE IF THERE WERE ANY DEFECTS DURING THE SCAN, IF SO, LOOK FOR ANY 
;POSSIBLE SCRATCHES AND FLAG THEM, WRITE THE NEW DEFECT(S) INTO THE 


Jil 


RPO7 FMTR/SCANNER MACRO V04.00 1-DEC-83 09:58:43 PAGE 78-1 SEQ 0139 
: SCAN SECTION 
;CORRESPONDING TRACK DESCRIPTOR(S) IF ENABLED. | 
030706 105737 002246 10$: TSTB  NEWCNT ;ANY NEW DEFECTS FOUND ? | 
030712 001475 bEQ 19% 18R IF ZERO, NO | 
030714 012701 036074 11$: MOV OOBUFF RL }GET POINTER TO BEGINNING OF DATA BUFFER AND 
030720 12$: CLR (Ride INITIALIZE IT | 
030722 020127 120072 CHP Ri, @ENDBUF - )DONE BUFFER YET ? 
030726 101774 BLOS ;8R IF NO 
030730 004737 025312 JSR PC, FINSCR sLOOK FOR SCRATCHES IN THIS AREA; 
sPUT THE CONTENTS OF ‘DEFBUF* CINCLUDING ANY 
sINTERPOLATED SCRATCHES) INTO ‘OBUFF’ 
030734 012701 036074 MOV @OBUFF ,R1 GET POINTER TO BEGINNING OF DATA BUFFER 
030740 004737 022224 JSR PC,NEWLST ;PRINT NEW DEFECTS, IF AN 
030744 005737 002200 TST ENWTTD 'TS WRITE TOCS) ENABLED 7? 
030750 001456 BEQ 198 :8R IF NO 
030752 013700 002226 13$: MOV ERRMAX,RO ;SETUP RETRY COUNT 
030756 004737 026162 JSR PC,LOADTD }LOAD THE TD FOR THE CORRECT TRACK AND 
030762 001426 BEQ 17% ;BRANCH IF NO DEFECT STATUS 
030764 004737 026236 JSR PC, SAVETD ;SAVE TD WRITE BUFFER JUST IN CASE THERE 
:IS RETRY ATTEMPT. 
030770 004737 026274 14$: JSR PC,RESTTD ;NOW RESTORE THE TD BUFFER 
030774 004737 021152 JSR PC“ WRITTD {CALL THE WRITE TO SUBROUTINE 
031000 000417 BR 178 ;RETURN HERE IF EXCEEDED RETRY LIMIT 
ELSE RET . NO ERROR 
031002 004737 021440 JSR PC,READTD ;CALL THE READ TD’ SUBROUTINE 
031006 000401 BR 153 sRET IF EXCEEDED RETRY LIMIT 
031010 000403 BR 16$ ELSE RETURN HERE, NO ERROR 
031012 005300 15$: DEC RO ;DID WE EXCEED RETRY ? 
031014 001411 BEG 178 ;8R IF YES 
031016 000764 BR 143 ;TRY WRITTING TD AGAIN 
031020 012737 002404 16%: MOV OFMTRK,FUNCTN LOAD THE FORMAT COMMAND FOR THE DRIVER 
031026 004737 015452 JSR PC ,MAKTRK ;NOW EXECUTE THE COMMAND 
031032 BR 178 }RETURN HERE IF EXCEEDED RETRY LIMIT 
;ELSE RETURN HERE, NO ERROR 
031034 004737 020676 JSR PC, CNTDEF ;COUNT THESE NEW DEFECTS IN THE OVERALL COUNTER 
031040 005711 178: ‘TST (Ri) 31S THIS END OF DEFECTS IN BUFFER ? 
031042 001403 BEQ 18$ s8R IF YES 
031044 020127 120072 CHP Ri, @ENDBUF sAT END OF THE SCRATCH BUFFER ? 
031050 101740 BLOS 138 i;8R IF NO | 
sNOW GET THE TRACK DESCRPTORS JUST KRITTEN AND GO SCAN THEM FOR 
;ANYMORE POSSIBLE DEFECTS AFTER THE CORRECTION. 
031052 105037 002246 18$:  CLRB  NEWCNT )RESET THE LOCAL DEFECT COUNTER 
031056 004737 026404 JSR PC, RESTOR iNOW RESTORE THE ORIGINAL DEFECT BUFFER: 
;PUT THE CONTENTS OF ‘DBUFF’ (EXCLUDING THE 
sINTERPOLATED SCRATCHES) INTO ‘DEFBUF’ 
031062 012737 032464 002256 MOV @DEFBUF . TBLPTR }RESTORE POINTER TO BEGINNING OF DEFECT BUFFER 
031070 004737 JSR PC. GETNE iGET NEXT DEFECT TO CHECK 
031074 112737 177777 002242 HOVE @< 1 -FIRPAS sINDICATE 2ND PASS OF SCANNER 
031102 000137 030536 JMP 3$ 300 MORE SCANNING 
031106 023737 002312 002212 19%: CHP DESCYL,MAXCYL DONE ALL CYLINDERS YET ? | 
031114 101002 BHI 208 BR IF YES 
031116 000137 030454 JUMP SCAN 100 SOME MORE SCANNING 


CZRIKBO 


RPO7 FMTR/SCANNER MACRO V0O4.00 1-DEC-83 09:56:43 PAGE 78-2 

TEST 1: SCAN SECTION 

er 031122 004737 020160 208: JSR 

117 031126 EXIT1: 

123 

135 - EVEN 

136 

137 031126 L10016: 

138 0351126 104401 TRAP 


PC,,WRIBSF 


CsETsT 


K1i1 


sWRITE THE BAD SECTOR FILE 


SEQ 0140 


Lil 


PARAMETER CODING MACRO V04.00 1-DEC-83 09:58:43 PAGE 80 SEQ 0141 | 
TEST 1: SCAN SECTION 
3 TITLE PARAMETER CODING | 
14 .SBTTL HARDWARE PARAMETER CODING SECTION | 
44 see 
45 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS | 
46 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
47 3 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
48 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
a9 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
50 ; WITH THE OPERATOR. 
53 031130 000022 .WORD L10017-L$HARD/2 
031132 LSHARD: : 
54 sPRINT ‘RPCS1 ADRS?’ 
55 031132 000031 .WORD TSCODE 
031134 031176 .WORD MESG1 
031136 160000 .WORD TSLOLIM 
031140 177777 .WORD TSHILIM 
56 ;PRINT ‘VECTOR ADRS?’ 
57 031142 001031 .WORD  TSCODE 
031144 031211 .WORD MESG4 
031146 900000 .WORD TSLOLIM 
031150 000377 .WORD TSHILIM 
58 ;PRINT ‘BR LEVEL?’ 
59 031152 002032 .WORD  TSCODE 
031154 031225 .WORD MESGS 
031156 000340 .WORD 340 
031160 000000 .WORD TSLOLIM 
031162 000007 .WORD TSHILIM 
60 ;PRINT ‘DRIVE @?° 
61 031164 30 .WORD  TSCODE 
031166 031236 .WORD MESG6 
031170 000007 WORD 7 
031172 000000 .WORD TSLOLIM 
031174 000007 .WORD TSHILIM 
62 .EVEN 
” 031176 L10017: 
67 031176 122 120 103 MESG1: .ASCIZ /RPCS1 ADRS/ 
031211 126 105 103 MESG4: .ASCIZ /VECTOR ADRS/ 
69 031225 102 122 040 MESGS: .ASCIZ /BR LEVEL/ 
70 031236 104 122 111 MESG6: .ASCIZ /ORIVE 0/ 
72 EVEN 
76 
86 


a eee Se 


PARAMETER CODING MACRO V04.00 1-DEC-83 09:58:43 PAGE 81 
SOFTWARE PARAMETER CODING SECTION 


031246 
031250 


031250 


031250 
031414 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


Mii 


+ 

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


-WORD L10020-L$SOFT/2 


LSSOFT:: 


L10020: - 


$PATCH: : .BLKW 


8 
< 
Bb 


OBUFF:: .BLKW 
ENDBUF = .-2 
EVEN 


eoooo0o0 ocooooo oooooo ¥ 


3° 


Liye ae mel or | 


SEQ 0142 ~— 


j 


sPROGRAM PATCH AREA (S50. WORDS) 


* 


s TEMPORARY STORAGE FOR TD WORD @1 
s TEMPORARY STORAGE FOR TD WORD #2 
s TEMPORARY STORAGE FOR TD WORD @3 
s TEMPORARY STORAGE FOR TO WORD 04 
s TEMPORARY STORAGE FOR TD WORD @5 
s TEMPORARY STORAGE FOR TD WORD 06 


sBEGINNING OF BUFFER SECTION 
sGENERAL BSF USE 

sMFG BUFFER FOR DEC 144 FILE 
sENO OF BSF BUFFER 


sBEGINNING OF DEFECT BUFFER (SCAN MODE) 
sHEADER BLOCK (6 WROS X SO. SECTORS) 

s TRACK DESCRIPTOR BLOCK . 
sBEGINNING OF LINEAR BUFFER . 

sEND OF LINEAR BUFFER 

sEND OF DEFECT BUFFER 


sDATA BUFFER (256. WRDS X SO. SECTORS) 
sEND OF BUFFER SECTION 


Nii 


PARAMETER CODING MACRO V04.00 1-DEC-83 09:58:43 PAGE 81-1 SEQ 0143 
SOFTWARE PARAMETER CODING SECTION | 
120074 120114 WORD T$FREE 
120076 000006 "WORD T$SIZE 


12010690 LSLAST:: 


—_—- 


PARAMETER CODING MACRO VO4.00 i -DEC 83 09:58:45 PAGE B82 SEG 0144 
SOF TWARE PARAMETER CODING SECTION 


1 
14 
16 


i.10021: 


L10023: 
END 


558 1 


0 
L10023-.72-1 
176700 

254 


od 


PARAMETER CODING MACRO V04.00 1-DEC-83 09:58:43 PAGE 62- 


SYMBOL TABLE 
ADR = 000020 G 
ANDHDR 0061035 G 
ANYWHR 002156 G 
AOE =* 001000 G 
ASSEMB= 000010 
ATA = 100000 G 
ATO = 000001 G 
ATi = 900002 G 
AT2 == 000004 G 
ATS = 000010 G 
AT&4 = 000020 G 
ATS = 000040 G 
AT6 = 000100 G 
AT7 == 000200 G 
Al6é = 000400 G 
Ai7 = 001000 G 
BAI = 000010 G 
BEGBUF = 031460 
BELL = 000007 G 
BGNPAT= 002142 G 
BITO = 000001 
BITOO = 000001 G 
BITO1 = 000002 G 
BITO2 = 000004 G 
BITOS = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITOS = 000400 G 
BITO9 = 001000 G 
BIT1 = 000002 G 
BIT10 = 002000 G 
BIT11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT1S = 100000 G 
BIT2 = 000004 G 
BITS = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT7 = 000200 G 
BITS = 000400 G 
BIT9 = 001000 G 
BOE = 000400 G 
BSE = 100000 G 
BUFINI 016304 
002234 G 
CALCTD 014326 
CHABUF 011630 
CHANGE 006170 G 
CHEKTD 024424 
CHKBSF 015172 
CHKSEG 014116 
CLR os 


CSRESE* 


= ] 

=~ 

m 
eeseeaees 


os 
AHAQOHAHAHOHOAHAHAAHGAHAGAHAHAHAAUGAHOAHGAHAUGHUHAHHAHAAGAAAAAHAAAAHAHHHA 


SEQ 0145 


PARAMETER CODING MACRO VO04.00 1-DEC-83 09:58:43 PAGE 682-2 


SYMBOL TABLE 


F SPROT= 


RRR 


loa 

coe 

~ 

i) 

= 
eeees 


aek 


SEQ 0146 

LSDEVP 002060 G L10020 031250 NOGOOD 016276 
LSOISP 002124 G L10021 120104 NOOP = G 
LSOLY 002116 G 110023 120114 NORUN 016272 
LSOTP 002040 G MAKTRK 015452 NOWRCK 002176 G 
LSOTYP 002034 G MAPSEC 01 NULL = 140000 G 
L$0uU MAXCYL 002212 G OFFOIR= 000200 G 
L8OUT 002072 G MAXSEG 002414 G OFFSET 002236 G 
LSOVTY 002614 G MAXTRK 002220 G = 000001 G 
LSeF 002052 G MAXVAL 024564 ONEFIL= 000001 | 
LSENVI 002044 G = 0 G I____* 020000 G | 
LSETP 002102 G MERGE 015242 G OPTION 002160 G 
LSEXP1 2046 G MESG1 031176 = 000200 G 
LSEXP4 002064 G MESG13 2G OSAPTS= 000000 
LSEXPS 002066 G MESG14 006312 G OsAU = 000000 
LSHARD 031132 G MESG1S 006322 G OSBGNR= 000000 
LSHIME 002120 G MESG16 006332 G O$BGNS* 000000 
LSHPCP 002016 G MESG17 006544 G Os0U_ = 000000 
LSHPTP G MESG18 006224 G OSERRT= 000000 
L SH 002130 G MESG19 006642 G OSGNSW= 000000 
LSICP 002104 SG22 006570 G OSPOIN= 000001 
LSINIT 026516 G MESG23 006721 G OsSSETU= 000001 
LSLADP MESG38 012654 PAR == 000010 G 
LSLAST 120100 G MESGS9 012675 PARTBL 002336 G 
L8LOAD 002100 G MESG4 031211 PAT = 000020 G 
LSLUN 002074 G MESG4O 012715 PATTRN 002326 G 
LSMREV 002050 G MESG41 012732 PGE = 100000 G 
LSNAME 002000 G MESG42 012753 PGM = 001000 G 
LSPRIO 002042 G MESG43 012772 PHF = 000400 G 
LéPROT 026510 G MESG44 013004 PIP = 020000 G 
LOPRT 002112 G MESG4S 013016 PLTRK 002323 G 
LSREPP 002062 G MESG46 0130350 PNT =* 001000 G 
LEOREV 002010 G MESG47 013042 PRI = 002000 G 
LERPT 026502 G MESGS 031225 PRIOO = 000000 G 
LSSOFT 031250 G MESG6 031236 PRIO1 = 000040 G 
LSSPC 002056 G MESG7 PRIO2 = 000100 G 
LS$SPCP 002020 G MFGBUF 031464 G PRIO3 = 000140 G 
LéSPTP 002024 G MINCYL 002210 G PRIO4 = 000200 G 
L¢STA 002030 G MINSEG 412 G PRIOS = 000240 G 
LéSw 002142 G MINTRK 002216 G PRIO6 = 000300 G 
LSTEST 002114 G MODBY 202 G PRIO7 = 000340 G | 
L¢TIML 002014 G MODTD 002170 G SEL = 002000 G 
LSUNIT 002012 G MOH es 006015 G 
L10000 002140 MOL = 010000 G ROBSF 017714 
110001 00214 MOLINE 005727 G RODAT = 000071 G 

10002 007752 MORETD 002416 G ROHD = 0000735 G 
L10003 010074 MPE = 000400 G ROTO = 000075 G 
L10004 010216 MSEG = 000022 ROY = 000200 
L10005 010244 MSROTD 005615 G READIN= 000021 G 
L10006 010326 MSWRTD 005604 G READTD 021440 
L10007 026506 MTD == 040000 G READY 010472 
L10011 027546 MXF = 001000 G RECAL = 000007 G 
L10012 027550 NBA = 100000 G RECALI 005672 G 
£10013 030056 NED = 010000 G RECVED 002300 G 
110014 030064 NEGWRD 002376 G G 002514 G 
L10015 030072 NEM = RELSE = 0000135 G 
L10016 031126 NEWCNT 002246 G RELTIV 016536 
L10017 031176 NEWLST 022224 L 


2 &. 


PARAMETER CODING MACRO V04.00 1-DEC-83 09:58:43 PAGE 82-5 SEQ 0147 
SYMBOL TABLE 
RESET 013256 SAVTRK 002320 G TOCPY2 031432 G TSFREE* 120114 T1 030074 G 
RESTOR 026404 SBE == 000004 G TOCPYS 031434 G TS$GMAN= 000000 UAM = 000200 G 
RESTTD 026274 sc * 100000 G TOCPY4 031436 G TSHILI= 000007 UNIT 002420 G 
RETRY 013304 sc 30454 TOCPYS 031440 G TSLAST* 000001 UNS = 040000 G 
RHDATA 005713 G SCANIT 002243 G TOCPY6 031442 G TSLOLI= 000000 UPDSCR 025174 
RHEXT 0024350 G SCANR 002166 G TODEF 6G TSLSYM= 010000 UPE = 020000 G 
RHTYPE 002432 G SCF = 9000002 G 017240 TSLTNO= US1 = 000001 G 
RAR os G SC1 = 000100 G TOLMTS 002352 G TSNEST®= 177777 US2 = 000002 G 
RPADR 002422 G SC16 *= 002000 G TOSBLK 033614 G T$NSO = 000000 uUS4_ =« 
RPAS 002456 G sc2 = 000200 G TOSCAN 022546 T$NS1 = 000005 VERIFY 017614 
RPBA 002444 G SC32 = 004000 G TOTMP1 031444 G TSPCNT= 000000 VRIFY 002164 G 
RPBAE 002510 G sc4 = 000400 G TOTMP2 031446 G TSPTAB= 910022 v * 000100 G 
RPCC 002476 G SC64 = 010000 G TOTMPS 031450 G TSPTHV= 1 WAIT 013106 
RPCS1 002440 G sc6 = 001000 G TOTMP4 031452 G TSP TNUS 1 WARN 006206 G 
RPCS2 002450 G = 000020 G TOTMPS 031454 G TS¢SAVL© 177777 WCE = 040000 G 
RPCSS 002512 G * 000031 G TOTMP6 031456 G TSSEGL*® 177777 = 000040 G 
RPDA 002446 G SECADD 002402 G TOVALU 332 G TSSIZE* WCKD = 000051 G 
RPOB 002462 G 002322 G TOWRD1 031414 G TSSUBN= WCKDAT 005636 G 
RPOC 002474 G SEEK = 000005 G TOWRD2 031416 G TS$TAGL® 177777 HO = 3G 
RPOS 002452 G SEIZE 013140 TOWRDS 031420 G TSTAGN= 010024 WCKHOR 005653 G 
RPOT 002466 G SFPTBL 002142 G TOWRD4 031422 G TSTEMP= WE -s- 
RPEC1 002504 G SIZE70 010330 TOWRDS 031424 G TSTEST= 1 W.OCK 005743 G 
RPEC2 002506 G SKI « G TOWRD6 031426 G TSTSTM* 177777 WOR = 001000 G 
RPER1 002454 G SOFSW 002262 G TEMPA 002250 G TSTSTS= 1 WROAT 
RPER2 002500 G SORT 020414 TEMP1 G TS$$AU = 010015 WRITCK 011734 
RPERS 002502 G TEMP2 002370 G TS$AUT= 010012 WRITMG 006342 
RPLA 002460 G SUPRSS 002252 G TEXT 002360 G TS$CLE= 010013 WRITTD 021152 
RPMR1 002464 G SVCGBL= 000000 TKWCNT G TS8DAT= 010023 WL 
RPOF 002472 G SVCINS= 000000 TMOLTA 015170 T¢s0U = 010014 WRSAFM 006411 
RPSN 002470 G SVCSUB= 000000 TMPBSF 031460 G TSSHAR= 010017 WRTBSF 020160 
RPVEC 002424 G SVCTAG= 000000 TMPCYL 002214 G T$$tM = 010000 WRTDAT= 000061 G 
002442 G SVCTST* 000000 TOLER 024150 T¢SINI= 010011 WRIFE2 002174 G 
RTYCNT 002274 G S$LSYM= 010000 TOLRAN 024336 TSSMSG= 01 WRTTO = 000065 G 
RWU1 = 002000 G 016322 G TRE = 040000 G TSS$PC = = 000400 G 
RWU2 = 004000 G TAP = TYPLOC 011046 T$$PRO= 010010 X$ALWA= 000000 
RWU3__= 010000 G TBLPTR 002256 TSARGC= 000003 TS$PTA= 010022 X$FALS= 000040 
002245 G TO = 000010 G TSCODE* 003032 TS$$RPT= 010007 X$OFFS= 000400 
SAVCYL 002316 G TOBCNT 0023530 G TSERRN= 000002 T$$SOF= 010020 X$TRUE= 000020 
SAVETD 026236 TOCASE 013732 TSEXCP* 000000 T$#SW = 010001 $PATCH 031250 G 
SAVRPR 017542 TOCPY1 031430 G TSFLAG= 000050 TSSTES= 010016 


- ABS. 120114 000 
000000 001 
ERRORS DETECTED: Oo 
VIRTUAL MEMORY USED: 29952 WORDS ( 117 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
CZRIKB .BIC,CZRIKB/C=[20,0)SVC34R.MLB, [20,12 )CZRIKB.DOC,CZRUKB.HIS,CZRUKB 


a ee a a 


Fie 
PARAMETER CODING MACRO VO4.00 1-DEC-83 09:58:43 PAGE S-1 
CROSS REFERENCE TABLE (CREF VO4.00 ) 


$$sMFG 2-16 2-29 6-3 7-133 7-195 13-17 13-38 14-117 
SPATCH 861-310 

A16 12-7¢ 16-33 16-38 

A17 12-60 16-33 16-38 

ADR 11-57¢ 


ANOHOR 
ANYWHR 13-18@ 23-19 71-43 71-S5ie 71-54 71-55 71-61 71-74 


ATO 12-103¢@ 
AT1 12-104¢@ 
AT2 12-105¢ 
ATS 12-1060 
AvT4 12-107¢@ 
ATS 12-108¢@ 
AT6 12-109@ 
AT7 12-110 
ATA 12-730 
BAI 12-26¢@ 


BELL 14-14 14-109 14-109 14-119 14-120 
BGNPAT 13-8¢ 13-86 55-15 


30 49-55 53-34 53-47 
26-45 26-50 49-34 49-51 49-58 


BITS 11-57@ 52-26 53-39 53-47 54-94 54-109 55-89 55-104 


11-576 
BSE 12-161@ 17-57 
BUF INI -90 -946 
ore 17-39 22-16¢  33-33¢  33-36e 42-226 43-226 43-35 
-21¢ 


CsAau 7-144@ 76-35 
CSAUTO 7-144@ 73-18 


23-18 


77-79 


66-27 


43-376 


71-42 


67-13 


43-400 


71-73 


-108 


ey 
8 


49-374 


71-81 


SS-101 
55-98 


77-78 


55-103 
55-100 


SEQ 0148 


54-214 


PARAMETER CODING MACRO VO4.00 1-DEC-83 09:58:43 PAGE S-2 SEG 0149 
CROSS REFERENCE TABLE (CREF V04.00 ) 


CsBRK 7-144@ 77-106 78-14 


CSCLEA 7-144@ 74-62 


CsCcLOS 7-1440 

CsCLPl 7-1440 

CsCvEC 7-1440 

CSOCLN 7-144@ 72-10 
CsD00DU 7-144¢@ 

CsORPT 7-1440 

Csbdu 7-144@ 75-34 
CSEDIT 7-144@ 7-198 


CSERDF 7-144@ 34-18 34-34 


CSERHR 7-144@ 27-38 27-42 27-45 27-48 27-51 27-54 27-57 27-60 27-63 27-66 27-69 27-72 27-75 
27-78 27-81 27-84 


CSERRO 7-144¢ 

CSERSF 7-144¢ 

CsERSO 7-144 

CSESCA 7-144@ 

CSESEG 7-1440 

CsESUB 7-144@ 

CSETST 7-144@ 78-137 

CSEXIT 7-144@ 71-16 71-22 72-11 72-109 74-17 74-47 
C#GETB 7-144@ 

CSGETW 7-1440@ 


CSGMAN § 7-144@ 23-17 23-23 23-25 23-52 23-56 23-60 23-64 23-71 23-73 23-81 23-1168 71-41 71-54 
71-61 71-70 71-78 71-80 71-85 71-87 71-92 71-98 71-103 


C8GPLO 7-144 


C8GPRI 7-144 

CSINIT 7-144@ 72-124 

CsINP 7-1440 

CSMANI 7-144@ 77-119 

CSMEM 7-1440 

CS$MSG 7-144@ 15-14 15-25 15-34 15-40 15-49 

CSOPEN 7-144¢@ 

CSPNTB 7-144@ 15-13 15-19 15-21 15-24 15-30 15-31 15-33 15-39 15-45 15-46 18-16 18-20 23-S0 

CSPNTIF 7-144@ 20-38 34-13 34-25 34-28 38-45 38-57 38-61 38-63 39-20 39-22 39-33 39-39 39-42 
39-46 42-38 47-38 51-43 51-48 51-51 51-55 S2-21 S2-24 52-41 S$2-45 S2-48 S2-53 71-37 
71-39 74-14 74-21 74-24 74-27 74-32 74-34 74- 

CSPNTIS 7-1440 

CSPNTX 7-144@ 19-16 19-17 19-19 19-20 19-22 19-23 19-28 19-29 

csQ@iIo 7-144 

C$RDBU 7-1440 

CSREFG 7-144@ 71-12 71-16 71-24 71-28 

CSRESE 7-144@ 7-144@ 71-10 

CSREVI 7-144@ 7-198 

CSRFLA 7-144 

CSRPT 7-144@ 69-76 

CSSEFG 7-1440 

CSSPRI 7-144@ 72-13 74-10 

CsSvEC 17-1440 

CsTPRI 7-1440 

CALCTOD 30-16@ 33-22 


PARAMETER CODING MACRO V04.00 2 09:58:43 PAGE 


CROSS REFERENCE TABLE (CREF vO4. 
CHABUF 21-16@ 22-17 41-20 
CHANGE 

CHEKTD 59-35@ 61-25 62-43 
CLR 12-30@ 24-25 74-11 
CMDQUE 13-171@ 72-26 72-79 
CMOD 12-156@ 22-21 33-38 
CNTDEF 47-15@ 77-140 78-93 
CONFLG 13-58@ 71-218 77-72 
CONTLT 13-119 18-18% 18-20 


CR 14-12 14-103 14-104 
CRE144 42-40 43-18 45-12¢ 
CRLF 14-39@ 15-13 15-24 


DATA 12-2340 30-66 37-19 
DBUFF 43-17 43-35 43-37 


48-13 48-22¢ 468-235 
62-37 63-15 65-12 


406 
DMD 12-96@ 17-41 17-46 
OMPREG 15-11 15-22 15-46 


DPR 
DRIVER 17-30@ 17-95 33-39 
ORQ 


ORTS 12-1226 
ORT4 12-1236 
ORTS 12-1240 


63-17 


& gPsenee~ 


. 


Ase Sessszs 
Be 


‘ 
wo 
LY 
* 


50-29 


42-25 


Hie 


s-5 


54-23 


14-107 14-108 
15-48 39-46 


55-21 58-16 


49-25% 49-486 
65-118 65-141 


43-26 43-42 


14-119 
51-55 


65-15 


66-194 


49-41 


14-120 
52-53 


50-32 


74-14 


78-62 


30-161 


42-196 
62-35 
78-15 


42-204 
46-214 
50-336 
66-93 


54-24 


78-69 


42-534 
62-394 
78-38 


42-214 
46-426 
50-45 

77-754 


55-23 


61-75¢ 


55-39 


SEQ 0150 


43-19e  43-Sis¢ 
65-89e 65-101 


PARAMETER CODING MACRO VO4.00 1-DEC-83 09:58:43 PAGE 


CROSS REFERENCE 


ORT6 12-125¢ 
DRT7 12-126¢ 
DRTS 12-1270 
ORVCLR 12-2060 
ORVINI 34-110 
VNO 13-1408 
DRVPAR 13-340 


DRY 12-6 
OS 12-237¢ 
30-138 
OSE 12-179@ 
OTE 12-90¢ 
DVA 12-56¢ 
Ovc 12-175¢ 
ESEND 7-144 
ESLOAD 7-144¢ 
12-84¢@ 


EF.STA 11-S7¢@ 

EM1 14-1286 
EM10 14-1360 
EM11 14-137¢@ 
EM12 14-138¢ 
EM13 14-139¢ 
EM14 14-140@ 


EM? 14-129@ 
EM20 14-145¢ 
EM21 14-1466 
EM22 14-147¢@ 
EMS 14-1306 
Ema 14-1316 
EMS 14-132¢@ 
EM6 14-1336 
EM7 14-134¢@ 
ENDBSF 20-25 

ENDBUF 34-96 

ENDDEF 61-19 


TABLE (CREF V04.00 ) 


19-17 


71-70 


13-114 
30-151 


61-660 
78 -64 
63-22 


30-34 


27-48 27-51 


5-4 


35-426 


28-52 
38-66 


27-54 


Iie 


74-12 

28-54 29-54 29-55 30-54 30-90 
49-68 53-43 54-50 -55 54-71 
81-760 

65-28 65-47 65-130 67-25 78-47 
32-20 32-216 32-226 32-53 

27-57 27-69 27-72 27-75 27-78 


SEQ 0151 
| 
| 

30-92 30-133 30-136 

81-730 

27-81 = 27- 


see 


PARAMETER CODING MACRO VO4.00 1-DEC-83 09:58:43 PAGE S-5 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ERRFNC 13-640 16-16 22-20 33-27 33-320 34-44%. 34-50e 34-644 
ERRMAX 135-460 23-96 26-28 77-708 78-73 


ERRMSK 13-698 17-30« 17-68« 17-70« 17-77« 17-82 17-87 24-374 
34-514 34 -65¢ 34-76 41-31 41-37« 50-516 50-566 53-366 
57-41l¢ 77-678 

ERRORS 24-41 26-31 27-140 34-45 50-59 77-134 78-30 

ERRTTL 13-68@ 26-27e 34-92e 53-15 53-19 53-23 54-16 54-34 


F $8GN 7-144@ 7-170 10-21 11-51 15-9 15-16 15-27 15-36 
71-16 71-22 72-11 72-109 73-10 74-8 74-17 74-47 
79-1 60-43 60-53 81-12 61-85 62-15 62-16 62-16 
FSCLEA 7-144@ 74-8 74-62 


F$DU 7-144@ 75-8 75-34 
F SEND 7-144 7-144 7-144 7-144 7-144 7-144 7-144 7-144 
7-144 7-144 7-144@ 7-170 10-21 11-51 15-14 15-25 

69-76 71-16 71-22 72-11 72-109 72-124 73-18 74-17 
76-36 77-50 77-66 77-66 77-66 76-137 78-137 79-1 
62-21 82-22 

FSHARD 7-144@ 80-53 80-62 

F Sti 7-144@ 9-10 9-25 

FSINIT 7-144@ 71-8 72-124 

Ase S-eese 69-61 69-61 71-16 71-22 72-11 72-109 74-17 


-144@ 7-170 10-21 11-51 68-1 69-41 76-36 77-50 
15-25 15-27 15-34 15-36 


FSRPT 7-144@ 69-47 69-76 
F $SEG 7-144¢@ 
FSSOFT 7-144@ 61-12 81-22 
F $SRV 7-144¢@ 
F $SUB 7-1440 
F$SwW 7-144@ 10-10 10-20 
FSTEST 7-144@ 77-66 78-137 
Fil 12-51¢ 
Fe 12-S2e@ 
F3 12-53 
F4 12-54 


FINDSE 54-43 55-64 56-47¢@ 


FIRPAS 13-53@ 72-22 78-Se 78-33 78-108¢ 


34-726 


26-24 
54-768 


55-34 


15-42 
75-8 
82-21 


7-144 
15-34 
74-47 
80-43 


74-47 
79-1 
15-40 


43-246 


26-34 
54-90* 


55-49 


49-386 


26 - 36% 
54-924 


74-36 


50-216 


27-14 
55-70 


76-20 


54-204 


27-21 
55-856 


76-20 


SEQ 0152 


55-206 


| 

} 

| 
34-436 
55-874 
71-8 


PARAMETER CODING MACRO V04.00 ay os 63 09:58:43 PAGE S-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 


FMT16 §=6612-154¢@ 
FMTRK 12-2200 
FORMAT 14-96¢ 
FORMT 13-23¢ 
FRMTOO 14-410 
FRMTOL 14-420 
FRMTO2 14-43¢ 
FRMTOS 14-44¢@ 
FRMTO4 14-45¢ 


33-25 72-70 
72-326 


74-24 74-27 


51-48 S2-45 
51-51 52-48 


15-21 


17-62 17-73 
S0-63¢ 51-15 


76-89 


17-92 
51-266 


22-194 
51-58¢ 


Kile 


33-25 33-30 
54-19 55-196 


34-834 
55-364 


42-18 


42-23 42-53 


77-126 77-130 76-89 


80-59 
23-81 23-118 
80-57 80-5 


SEQ 0153 | 


43-23% 49-36 


71-41 71-54 


71-41 71-54 


PARAMETER CODING MACRO V04.00 1-DEC-83 09:58:43 PAGE S-7 
CROSS REFERENCE TABLE (CREF V04.00 ) 


71-85 


71-85 
G1 12-226¢@ 

12-230 
G3 12-2330 
G4 12-2350 
GAPVAL 62-1 


71-87 
23-118 


80-59 
71-54 


80-61 
71-61 


23-25 


78-137 


71-70 71-92 71-98 71-103 


23-52 23-56 23-60 23-64 23-71 


71-70 71-92 71-98 71-103 

60-61 

23-S2 23-56 23-60 23-64 23-118 
71-103 60-55 80-57 80-59 80-61 
28-26 37-17 53-43 54-50 54-55 
28-17 28-26 28-30 37-17 54-50 
37-19 60-20 60-25 

60-20 60-25 


30-108 30-115 37-19 41-24 60-20 
33-36 41-17 81-690 

7-201 8-10 9-16 10-12 11-40 
67-38 67-45 69-40 69-49 69-63 
76-22 77-S@ 77-54 77-61 78-118 


61-31 61-33¢ 62-16 62-48% 63-20 


74-620 


72-11 72-109 72-1240 
10-21@ 11-51 11-51@ 68-1 68-10 
60-43@ 681-85 81-850 
15-25@ 15-27@ 15-34@ 15-360 15-400 


62-210 


62-22 62-220 


78-1370 76-1370 


23-73 


71-41 


60-19 
60-19 


69-41 
15-42¢ 


23-81 


71-54 


12-241 
72-85 
78-139 


65-91 


69-410 
15-49¢ 


71-41 


71-70 


13-173 
72-111 
80-S5¢ 


65-944 


76-36 


71-78 


71-78 


14-19 
73-12 
80-77 


65-109 


76-360 


SEQ 0154 


71-80 


71-80 


14-29 
74-38 
80-87 


65-114 


77-S0 


PARAMETER CODING MACRO VO4.00 1-DEC-83 09:58:43 PAGE S-8 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ILEv 12-63¢ 
ILF 12-76¢ 
ILR 12-790 


INTLEV 13-55¢ 
IR 12-31¢ 

11-57¢ 
ITCNT 13-660 
IX€ 11-57¢ 
Ixu 12-174¢@ 


L$co 7-198¢@ 
L$DEPO 7-198¢ 
LSDESC 7-198 

L$DESP 7-198¢ 
LS$DEVP 7-198¢ 
L$DISP 7-198 

LSDOLYy 7-198¢ 
L$DOTP 7-198¢ 
L$OTYP 7-198¢ 
L$DU 75-8¢ 

L$DUT 7-198¢ 
L$OVTY 7-198 

LSEF 7-198¢ 
LSENVI 7-198¢ 
LSETP 7-198¢ 
LSEXP1 7-198¢ 
LSEXP4 7-198¢@ 
LSEXPS 7-198¢ 
LSHARD 7-198 

LSHIME 7-198¢ 
LSHPCP 7-198¢ 
LSHPTP 7-196¢ 
L $Hid 7-198 

LsIce 7-198¢@ 
LSINIT 7-198 

L$LADP 7-196 
LS$LAST 7-198 

L$LOAD 7-196¢ 
L$LUN 7-198¢ 
LSMREV 7-1980 
LSNAME 7-198¢ 
LSPRIO 7-198¢ 
L$PROT 7-198 

LSPRT 7-198 
LS$REPP 7-198¢ 
LSREV . 7-198 


34-21 
77-121 
38-16¢ 
22-15 
26-216 


69-61 


14-170 


9-10 


71-80 
61-840 


70-8¢@ 


54-82 55-78 64-20 
32-36 34-23e 36-15 41-18 


$3-14« 53-21 54-15« 54-36 


75-19 76-20 


80-536 


9-100 


82-22 


Mie 


54-61 


55-334 


S5-51 


SEQ 0155 


| 
| 
| 


PARAMETER CODING MACRO VO4.00 1- 
CROSS REFERENCE TABLE (CREF V04. 


L$RPT 69-47¢ 
L$SOFT 81-12 
980 


LASLOC 13-51¢ 
12-1786 
LBT 12-68¢ 
LCE 12-177¢@ 
LF 14-13 


LOCYL 13-124¢@ 

65-1294 
LODBSF 20-15¢ 
LOE 11-57¢ 
LOT 11-57¢ 


MESG14 14-1146 


81-120 


74-15 
72-8 


72-11 
74-620 


78 -6% 


14-104 
41-21 
51-24 
39-15 


65-784 
54-87 
20-27 
38-49 
77-127 
61-33 


29-42 
71-87 


72-109 


78-43 


14-105 
61-71¢ 
71-103 
47-29 


65-794 
55-82 
38-46 
42-21 
78-90 


71-444 
29-46 


DEC-83 09:58:43 PAGE S-9 
00 ) 


72-124¢@ 


78-45 


14-106 14-107 


72-44% 77-137 


65-80 65-824 
64-26 


42-19 43-19 
43-21 


71-80 71-82 
29-55¢ 29-656 


Nie 


14-108 


65-85 


77-81 


77-844 


14-119 


65-86 


77-148 


14-120 


65-88 


78-38 


65-89 


78-111 


65-101 


65-104 65-107 


SEQ 0156 


65-109 


ee ee 


PARAMETER CODING MACRO VO4.00 1-DEC 83 09:58:45 PAGE S 10 
TABLE (CREF v04.00 ) 


CROSS REFERENCE 


MESG1S 
MESG16 
MESG17 
MESG18 
MESG19 
MESG22 
MESG25 
MESG38 
MESG39 
ME SG4 
MESG40 
MESG41 
MESG42 
MESG43 
ME SG44 
MESG45 
MESG46 
MESG47 
MESGS 
MESG6 
MESG7 
FF GBUF 
MINCYL 
MINSEG 153-1310 
MINTRK 
O06 Y 
MODTD 
MOL 
MOL INE 
MORE TD 
MPE 
MSEG 
MSROTO 
MSURTD 
MTO 
MXF 
NBA 
NEGWRD 
NEM 
NEWCNT 
NEMLST 
NOOP 
NORUN 
NOWRCK 
NULL 
OSAPTS 
OsSAU 
OSBGAR 
OSBGNS 
OsDu 
OSERRT 


71-78 


42-43 
65-88 
29-40 
77-75 
23-34 
72-486 


77-143 
30-90 


22-22¢ 
55-926 
34-86 
34-920 
29-50 


39-36 
66 -96 


43-22 44-11 
71-78 77-74 
29-S4e 29 -64¢ 


38-53 
77-141 


30-92 


33-37 42-246 
64-29¢ 76-46 


FS | 


77-96 


43-256 
78-36 


30-435 
48-16 


81-65¢ 


43-412  49-40e 
78-49 78-60 


SEG 0157 


50-31 54-226 55-226 55-38e 
78-1026 


-112 630-149 30-163 30-164 30-165 | 
51-16 51-34 51-45 52-42 53-44 


PARAMETER CODING MACRO VO4.00 1- 
CROSS REFERENCE TABLE (CREF vO4. 


O$GNSW 
OSPOIN 
OSSETU 
OFFDIR 
OFFSET 


OM 
ONEF IL 


OPI 
OPTION 


7-1440@ 

7-1440 

7-1440 
12-151 
13-S50@ 
12-61¢ 


7-198 
7-176 
7-1760 


17-40 
2-68 
77-1 


34-30 
71-41 


30-72 


55-156 
12-193¢ 


32-16 


7-1760 
7-196 


22-21¢ 


55-53 


36-18 


74-10 


33-30 
72-55 
17-50 


50-190 
17-35 
34-63 


41-36¢e 
19-17 
19-23 


54-74 
23-75 
54-550 
65-1006 
34-11 


78-78 
34 -S2 


7-198 
61-84 


25-156 


5-1 
77-14 


71-47 


58-14 


54-59 


51-26 
72-60 


53-16 
25-16 


19-17 
19-23 


55-66 
23-77¢ 
S$4-71le 


42-52 


34 -66 


33-386 


7-1290 
79-2 


71-49 


58-236 


54-19 
72-75 


64-15 


19-17 
19-23 


23-78e 
54-75 


34-77 


DEC -63 09:58:43 PAGE S-11 
00 ) 


49-396 


7-165 


80-1 


71-63 


72-61 
77-111 


77-113 


19-17 
19-23 


23-81 
55-67 


34-85 


49-546 


10-22 
80-90 


71-65 


77-130 


78-62 


19-17 
19-23 


37-16 
55-74 


42-26 


50-29 


11-1 
80-15 


71-89 


19-20 
19-29 


37-25¢ 
55-764 


43-27 


54-236 
11-80 


71-94 


43-43 


11-13 


71-100 


49-42 


68-2 


72-30 


69-1 69-89 


72-34 72-38 


54-25 55-24 


SEQ 0158 


69-13 


72-42 


38-664 
60-256 


55-40 





PARAMETER CODING MACRO VO04.00 1-DEC-83 09:58:43 PAGE S-12 


CROSS REFERENCE T 


RHDATA 14-99@ 33-32 

RHEXT 13-138@ 16-11¢ 

RHTYPE 13-139@ 16-12¢ 
12-80@ 

RPADR 13-1360 35-39e 

RPAS 13-150@ 24-440 

RPBA 13-145@ 17-396 

RPBAE 153-1630 

RPCC 13-158¢@ 

RPCS1 13-143@ 17-47 

RPCS2 13-147@ 17-66 

RPCSS 13-1640 

RPDA 13-146@ 17-38¢ 

RPOB 13-152¢ 

RPOC 13-157@ 17-37 

RPOS 13-148@ 17-26 

RPDT 13-154@ 34-29 

RPECL 13-161¢ 

RPEC2 13-1620 

RPER1 13-1490 

RPER2 13-1590 

RPERS 15-160@ 17-57 

RPLA 13-151¢ 

RPARI 8 135-153@ 17-416 

RPOF 13-156@ 17-40¢ 

RP 13-155¢ 

RPVEC 135-137@ 35-400 
13-1440 17-36e 

RTYCNT 13-70@ 26-266 
54-28 54-426 

RWU1 12-188@ 

RwWU2 12-1896 

3 12-190 

S$LSYM 7-1440@ 9-250 
23-23 23-230 
23-60 23-60 
23-73 23-730 
71-410 71-54 
71-78 71-78 
71-67@ 71-92 
73-16@  74-62¢ 

S 13-56@ 30-556 

SAVCYL 13-60@ 78-15e 

SAVETD 23-97 66-420 

SAVRPR 24-40 26-23 

SAVTRK 13-818 72-24 

SBE 12-1700 

sc 12-12¢ 

Sci 12-136@ 

S$C16 12-1400 

sce 12-1370 

sc32 12-141@ 

sc4 12-1360 

SC64 12-142¢ 

scs 12-1390 

SCAN 77-108 78-30 


ABLE (CREF v04.00 


54-20 


17-32 


76-113 


) 


16-246 
19-25 


17-55 
24 - 26% 


17-75 


16-30 
35-30 


17-85 


71-92¢ 
78-1370 
30-1436 


35-32 
40-21 


24-27 


34-55 
77-666 


80-620 


D134 


56-21 

25-14e 34-73¢ 35-19 

74-126 

24-29% 24-32 34-14 

34-69 34-80 34-88 

15-40@ 15-490 23-17 

23-S2 23-52 23-S2 

23-64 23-640 23-71 

23-118 23-118 23-118 
71-61 71-61 71-610 
71-60@ 71-85 71-85 

71-98 71-98 71-980 
61-220 


23-17 
23-S2e 
23-71 
23-118¢ 
71-70 
71-85 
71-103 


43-30 


23-17 
23-56 
23-71 
69-760 
71-70 
71-85¢@ 
71-103 


34-48 


34-62 


49-45 


SEQ 0159 


23-23 
23-56 
23-73 
71-41 
71-78 
71-87 


71-103@ 72-124¢ 


| 
| 
50-37 | 
| 
| 
| 
| 
| 


PARAMETER CODING MACRO VO4.00 1-DEC-83 09:58:43 PAGE S-15 SEQ 0160 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SCANIT 13-54@ 52-16¢ 52-18 77 -69¢ 
SCANR 13-25@ 36-51 50-57 72-40¢ 77-107 


SECSO 13-83@ 21-20 32-55 32-60 41-22 43-49 56-50 

SECADD 13-127@ 23-71 36-19 36-25¢ 37-14 37-20e 37-26 38-40 54-65 54-67¢ S4-69¢ 54-700 54-86 56-476 
56-46% S6-50e¢ 56-53e 60-214 60-24% 64-25 

SEIZE 24-25@ 25-153 

at 16-11@ 35-29 

SOFSW 13-65@ 34-93¢ 77-86 


SPIRAL 46-42@ 77-147 78-35 78-53 
SUPRSS 15-61@  23-103¢ 23-107¢ 23-115¢ 24-38 24-39% 24-42e 27-16 42-17 42-54e 53-366 54-936 55-88 57-40« 


SVCGBL 7-144@ 7-153@ 7-196 7-196 7-196 7-198 7-198 7-198 7-198 7-196 7-198 7-198 7-198 7-196 
7-198 7-198 7-196 7-198 7-198 7-198 7-198 7-198 7-196 7-198 7-196 7-196 7-196 7-198 
7-198 7-198 7-198 7-196 7-198 7-198 7-198 7-198 7-198 7-198 7-196 7-198 7-198 7-198 
7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-196 7-198 7-198 7-198 7-196 7-198 7-198 
7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-196 7-198 7-196 7-196 7-198 7-198 7-198 
7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-196 7-198 7-196 7-196 7-196 7-198 7-196 
7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-196 7-196 7-198 7-198 7-198 
7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-196 7-198 7-198 7-198 
7-198 7-196 7-198 7-196 8-8 8-8 8-8 9-10 9-10 9-10 9-10 9-10 9-10 10-10 

10-10 10-10 10-10 10-10 10-10 14-17 14-17 14-17 14-27 14-27 14-27 15-9 15-9 15-9 
15-16 15-16 15-16 15-27 15-27 15-27 15-36 15-36 15-36 15-42 15-42 15-42 69-47 69-47 
69-47 70-8 70-8 70-8 71-8 71-8 71-8 73-10 73-10 73-10 74-8 74-8 74-8 75-8 
i 75-8 76-9 76-9 76-9 60-53 60-535 80-53 61-12 81-12 61-12 61-84 81-64 61-84 

SVCINS 7-144@ 7-150@ 7-198 7-198 7-198 7-196 7-198 7-198 7-198 7-196 7-198 7-196 7-198 7-198 
7-198 7-196 7-196 7-198 7-196 7-198 7-196 7-198 7-198 7-196 7-196 7-198 7-198 7-198 
7-198 7-196 7-196 7-198 7-198 7-196 7-198 7-198 7-198 7-196 7-198 7-196 7-198 7-196 
7-198 7-196 7-198 7-196 7-196 7-196 7-198 7-198 7-198 7-198 7-198 7-198 7-198 7-198 
7-196 7-196 7-198 7-196 7-196 7-198 7-196 7-198 7-196 7-198 7-198 7-196 7-198 7-198 
7-198 7-198 7-198 7-198 7-198 7-196 7-196 7-198 7-198 7-198 7-198 7-196 7-198 7-198 
7-198 7-196 7-196 7-198 7-198 7-198 7-198 7-196 7-196 7-196 7-196 7-198 8-8 8-8 
8-8 8-8 9-10 9-10 10-10 10-10 14-17 14-17 14-17 14-17 14-27 14-27 14-27 14-27 

15-13 15-13 15-135 15-15 15-13 15-13 15-13 15-13 15-13 15-13 15-14 15-14 15-19 15-19 
15-19 15-19 15-19 15-19 15-19 15-19 15-19 15-19 15-19 15-19 15-19 15-19 15-19 15-19 
15-21 15-21 15-21 15-21 15-21 15-21 15-21 15-21 15-21 15-21 15-21 15-21 15-21 15-21 
15-21 15-21 15-24 15-24 15-24 15-24 15-24 15-24 15-24 15-24 15-24 15-24 15-25 15-25 
15-30 15-30 15-30 15-30 15-30 15- 15-30 15-30 15-30 15-30 15-31 15-31 15-31 15-31 
15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-31 
15-31 15-31 15-31 15-31 15-31 15-31 15-33 15-33 15-33 15-33 15-33 15-33 15-33 15-33 
15-33 15-33 15-34 15-34 15-39 15-39 15-3 15-39 15-39 15-39 15-39 15-39 15-39 15-39 
15-40 15-40 15-45 15-45 15-45 15-45 15-45 15-45 15-45 15-45 15-45 15-45 15-45 15-45 
15-45 15-45 15-46 15-48 15-48 15-48 15-48 15-46 15-46 15-48 15-48 15-48 15-49 15-49 
18-16 18-16 18-16 16-16 18-16 16-16 18-16 18-16 18-16 18-16 18-16 18-16 18-20 18-20 
18-20 18-20 18-20 18-20 18-20 18-20 18-20 18-20 18-20 18-20 18-20 18-20 19-16 19-16 
19-16 19-16 19-16 19-16 19-16 19-16 19-16 19-16 19-17 19-17 19-17 19-17 19-17 19-17 
19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-17 
19-17 19-17 19-17 19-17 19-19 19-19 19-19 19-19 19-19 19-19 19-19 19-19 19-19 19-19 
19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20 


PARAMETER CODING MACRO v04.00 1-DEC-83 09:58:43 PAGE S-14 SEQ 0161 


3-81 3-81 3-61 3-61 3-81 3-81 23-81 23-61 23-81 23-118 23-116 
23-116 23-1168 23-118 23-118 23-116 23-118 23-118 24-11 24-11 24-11 4-11 
-11 -11 4-11 24-11 24-11 24-11 24-11 24-11 24-11 27-38 27-38 


34-13 34-13 34-13 34-13 34-13 34-13 34-13 34-13 34-13 34-18 34-18 
34-18 34-168 34-16 34-25 34-25 34-25 34-25 34-25 34-25 - -25 
34-26 34-28 34-26 34-28 34-28 34-28 34-28 34-28 34-28 34-34 34-34 
4-34 34-34 34-34 35-21 35-21 35-21 35-21 35-21 35-21 35-22 35-22 
38-45 38-45 38-45 38-45 38-45 38-45 38-45 38-45 38-45 38-45 38-45 
38-57 38-57 38-57 38-57 38-57 38-57 38-57 38-57 38-57 38-61 38-61 
38-61 38-61 386-61 38-61 38-61 38-61 38-61 38-63 38-63 38-63 38-63 
38-63 38-63 38-63 39-20 39-20 39-20 39-20 39-20 39-20 39-20 39-20 


S2 S2 
52-41 S2-41 52-41 52-41 S2-41 S2-41 S2-41 S2-41 S2-41 S2-41 S2-41 
S2-41 52-45 52-45 52-45 S2-4 52-45 52-45 52-45 S2-45 52-45 S2-45 
52-48 52-48 52-48 52-48 S2-4 52-48 52-48 52-48 52-48 S2-48 S2-48 
52-53 52-53 52-53 52-53 52-53 S2-53 52-53 69-61 69-61 69-61 69-61 
71-10 71-12 12 71-12 71-12 71-14 71-14 71-16 71-16 71-16 71-16 


CROSS REFERENCE TABLE (CREF V04.00 ) 
19-20 19-20 19-20 
19-22 19-22 19-22 
19-23 19-23 19-23 
19-23 19-23 19-28 
19-29 19-29 19-29 
20-38 20-38 20-38 
23-17 23-17. = 23-17 
23-23 23-23 =. 23-23 
23-25 23-25 23-25 
23-25 23-25 23-50 
23-52. 23-52. 23-52 
23-56 23-56 23-56 
23-56 23-56 23-60 
23-60 23-60 23-60 
23-64 23-64 23-64 
23-71 23-71 += -23-71 
23-73 23-73 23-73 
23-81 23-81 23-81 
23-118 23-116 23-116 
24-11 24-110 24-11 
27-38 27-38 27-38 
27-45 27-45 27-45 
27-48 27-48 27-51 
27-54 27-54 27-54 
27-60 27-60 27-60 
27-66 27-66 27-66 
27-69 27-69 27-72 
27-75 27-75 27-75 
27-81 27-81 27-81 
34-13 34-13 34-13 
34-18 34-18 34-18 
34-25 34-25 34-28 
34-34 34-34 34-34 
38-45 38-45 36-45 
38-45 38-45 38-57 
38-61 38-61 38-61 
38-63 38-63 38-63 
39-20 39-20 39-20 
39-33 39-33 39-33 
39-33 39-33 39-33 
39-39 39-39 39-39 
39-42 39-42 39-46 
42-38 42-38 42-38 
47-38 47-38 47-38 
51-43 51-43 51-43 
51-48 51-48 51-48 
51-Si 51-51. 51-51 
51-55 51-55 51-55 
52-21 52-21 52-24 
52-41 52-41 52-41 
52-41 52-41 52-41 
52-45 52-45 52-48 
52-53 52-53 52-53 
69-76 69-76 71-10 
71-18 71-18 71-18 
71-26 71-26 71-28 


: 
s 
« 
: 
© 
: 
w 
w 


PARAMETER CODING MACRO V04.00 1- 
CROSS REFERENCE TABLE (CREF VO04. 


SVCSUB 
SVCTAG 


SVCTST 


71-37 
71-41 
71-41 
71-61 
71-70 


7-198 
7-1960 


7-196 
7-198@ 


71-37 = 71-37 
71-41 71-41 
71-54 71-54 
71-61 971-61 
71-70 71-70 
71-78 71-78 
71-80 71-80 
71-85 71-85 
71-87 71-87 
71-87 71-87 
1-98 1-98 
71-103 71-103 
2-11 2-11 
74-10 74-10 
74-17 9-74-17 
74-21 74-21 
74-24 74-24 
74-27 74-27 
74-32 74-32 
74-34 74-34 
74-36 74-36 
76-20 6-20 
78-137 78-137 
80-57 80-57 
80-59 80-59 
81-12 81-12 
9-25 9-25 
15-34 15-40 
23-25 23-25 
23-71 23-71 
69-76 71-41 
71-78 71-78 
71-98 71-98 
74-62 75-34 
1-22 81-22 
77-66 77-66 
76-35 
74-47 74-62 
82-21 
75-34 
80-62 
9-25 
71-22 72-11 
15-16@ 15- 
82-160 
69-76 
81-22 
10-20 
7-198 7-198 
7-198 15-13 


72-109 
15-27¢@ 


7-198 
15-13 


DEC-83 09:58:43 PAGE S-15 
00 ) 


72-124 
15-34 


7-198 
15-136 


15-36@ 15-40 15-42¢@ 15-49 


~ 
(r 
® 
~ 
~~ 
‘ 
& 
~ 
iy 
‘ 
& 
~ 
fo 
0 
@ 
~ 
— 
‘ 
& 
~ 
~ 
‘ 
& 
ed 
. 
& 
~ 
. 
& 


7-198 7-198 7-198 7-198 7-198 7-1968@ 7-198@ 7-198¢ 
15-19 15-19 15-19 15-19 15-19 15-19@ 15-19¢@ 15-190 


H1i3 
PARAMETER CODING MACRO V04.00 1-DEC-83 09:58:43 PAGE S-16 SEQ 0163 
CROSS REFERENCE TABLE (CREF V04.00 ) 


15-19@ 15-21 15-21 15-21 15-21 15-21 15-21@ 15-21@ 15-210 15-210 15-24 15-24 15-240 15-30 
15-30 15-30@ 15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-31 15-319 15-310 15-310 
15-31@ 15-31@ 15-31@ 15-310 15-310 15-33 15-33 15-330 15-39 15-39 15-39@ 15-45 15-45 15-45 
15-45 15-45@ 15-45¢@ 15-45¢@ 15-48 15-48 15-480 16-16 18-16 18-16 18-16@ 18-16% 18-20 18-20 
18-20 18-20 16-20@ 18-20@ 18-200 19-16 19-16 19-16@ 19-17 19-17 19-17 19-17 19-17 19-17 
19-17 19-17 19-17 19-17@ 19-17@ 19-170 19-17@ 19-170 19-17@ 19-17@ 19-17@ 19-19 19-19 19-19¢ 
19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20 19-20@ 19-208 19-20@ 19-200 19-206 
19-20@ 19-20@ 19-208 19-22 19-22 19-22@ 19-23 19-23 19-23 19-23 19-23 19-23 19-23 19-23 
19-23 19-23@ 19-23@ 19-23@ 19-230 19-230 19-230 | a aS tae 19-28 19-26 19-28@ 19-29 19-29 


TSCODE 23-17 23-17 23-17 23-17¢ oat Uy 23-17@ 23-23 23-23 23-23 23-230 23-238 23-230 23-25 23-<5 


TSERRN 7-144@ 27-38 27-38@ 27-42 27-420 27-45 27-45@ 27-48 27-48@ 27-51 27-51@ 27-54 27-S4@ 27-57 
34 

TSEXCP 23-17 23-17@ 23-23 23-23@ 23-25 23-25@ 23-52 23-S2e@ 23-56 23-56@ 23-60 23-60@ 23-64 23-64¢ 

TSFLAG 69-61 69-61@ 69-610 71-16 71-16 71-16@ 71-16@ 71-22 71-22 71-22@ 71-220 72-11 72-11 72-11 


TSFREE 81-84 82-220 
TSGMAN §7-144@ 23-17@ 23-17@ 23-236 23-23@ 23-25@ 23-25@ 23-520 23-52@ 23-56@ 23-5S6@ 23-608 23-600 23-640 
23-640 23-71@ 23-71@ 23-73@ 23-73@ 23-81@ 23-81@ 71-41@ 71-41@ 71-78@ 71-78@ 71-80@ 71-80@ 71-8S¢ 


TSHILI 23-17 23-17@ 23-23 23-23@ 23-25 23-25@ 23-52 23-S2e@ 23-56 23-S6@ 23-60 23-60@ 23-64 23-640 
23-71 23-710 23-73 23-73@ 23-81 23-61@ 71-41 71-41@ 71-78 71-78@ 71-80 71-80@ 71-85 71-85¢ 
71-87 71-67@ 60-55 60-55@ 680-57 80-57@ 80-59 80-59@ 80-61 60-610 

TSLAST 7-144@ 61-84@ 62-15 

TSLOLI 23-17 23-17@ 23-23 23-23@ 23-25 23-25¢@ 23-52 23-S2@ 23-56 23-56@ 23-60 23-600 23-64 23-640 
23-71 23-71@ 23-73 23-73@ 23-81 23-610 71-41 71-410 71-78 71-78@ 71-80 71-80@ 71-85 71-85¢ 
71-87 71-87@ 60-55 60-55@ 80-57 80-57@ 80-59 60-59@ 80-61 80-61¢ 

TSLSYM 7-144 7-144@ 8 9-25 10-20 15-14 15-25 15-34 15-40 15-49 69-76 72-124 73-18 74-62 75-34 


SS A 
i EE 


- _ (a ee 


PARAMETER CODING MACRO VO04.00 1-DEC-83 09:56:43 PAGE S-17 
CROSS REFERENCE TABLE (CREF V04.00 ) 


TSL TNO 
TSNEST 


TSTEMP 


TSTEST 
TSTSTM 


76-35 
61-840 


-144@ 


ee SI20 o 

W@ APU NNN 
UY) 
~ 


76-137 


60-62 
7-170 


61-22 

7-170@ 9-10 9-10 
10- 10-21 10-21 
15-14@ 15-16 15-16 
15-34@ 15-36 15-36 
15-49@ 66-1 68-1 
69-760 70-8 70-8 
72-124@ 73-10 73-10 
74-62@ 75-8 75-8 
76-350 76-36 76-36 
78-137@ 79-1 79-1 
80-62@ 61-12 61-12 
68-1 69-410 76-36 
10-20 15-9¢ 15-14 
70-12 71-8¢@ 72-124 
80-62 61-12@ 81-22 
62-16¢@ 
62-22 82-22 

9-10@ 10-10 10-10 

-% 15-36@ 15-42 

73-10 73-10 73-100 

7-66@ 80-53 80-535 
62-16@ 62-160 

8-8¢@ 9-25 9-25¢ 
15-40@ 15-49 15-490 
23-230 23-25 23-25 
23-56 23-56 23-56¢@ 
23-640 23-640 23-640 
23-73@ 23-61 23-61 
68-1¢ 69-61 69-610 
71-41@ 71-41@ 71-41¢@ 
71-61@ 71-70 71-70 
71-80 71-80 71-80¢@ 
71-67@ 71-67@ 71-87¢@ 
71-96@ 71-103 71-103 
73-160 74-17 74-17@ 
76-35@ 76-36 76-360 
80-57 80-57 60-57¢@ 
60-61@  60-61@  80-61¢ 
77-660 61-84 

15-19 15-21 15-24 
18-20 19-16 19-17 
23-52 23-56 23-60 
27-57 27-60 27-635 
34-34 35-21 38-45 
51-43 51-48 51-51 
71-18 71-22 71-24 


15-16¢ 
73-100 


SEQ 0164 


re NS a 


ee Sen a ee 


PARAMETER CODING MACRO VO4.00 1-DEC-83 09:58:45 PAGE S-18 
CROSS REFERENCE TABLE (CREF V04.00 ) 


TSTSTS 
T1 
TABELD 


71-85 
74-21 


77-660 
77-660 
72-7 


46-16 
13-88 


23-65¢ 
23-664 


71-87 
74-24 


35-45 


71-92 
74-27 


71-98 
74-32 


78-106 
28-17 


50-444 
81-480 
30-28 

81-480 
81-486 


49-23 
33-33 


71-103 
74-34 


28-26 


50-47 
30-48 


55-74 
41-23 


18-15¢ 
72-64 


J135 


72-10 
74-36 


28-30 


81-486 
61-480 


55-76 
54-18 


72-8 


72-11 
74-47 


37-17 


55-18 


30-22 
54-53 


39-34 


65-100 
59-394 


32-398 


57-18 


39-29 
54-99 


47-16 


59-41 


32-402 


72-109 
75-34 


60-19 


81-700 


47-33 
54-103 


47-18 


61-26 


38-254 


72-124 
76-35 


48-10 
54-106 


47-21 


62-44 


38-39 


73-18 
77-106 


49-30 
55-94 


49-24 


63-18 


38-404 


74-10 
77-119 


49-34 
55-98 


51-16 


65-56 


38-41% 


SEQ 0165 


74-14 
78-14 


49-37 
55-101 


60-14 


65-626 


38-46 


K13 
PARAMETER CODING MACRO VO4.00 1-DEC-83 09:58:43 PAGE S-19 SEQ 0166 
CROSS REFERENCE TABLE (CREF V04.00 ) 


VRIFY 13-240 34-56 72-36¢ 


WAIT 24-110 24-34 34-40 
WARN 14-109@ 20-386 38-45 42-38 47-38 74-32 
—_ 12-39@ 17-66 55-45 


WLE 12-89¢ 
WLOCK 14-1010 34-64 
WOR 12-1867¢ . 


WRDAT 14-940 43-24 55-20 
_ 23-100 48-19 49-220 78-79 


WRIBSF 43-15@ 77-150 78-115 

WRIDAT 12-2198 43-23 55-19 

WRIFE2 13-28@ 72-20 72-S0*# 77-90 
— 12-2210 49-36 72-69 77-117 


12-1866 
X$ALWA 7-144¢ 
X$FALS 7-1440 
XSOFFS 7-1440 
X$TRUE 7-1440@ 


Ne ne ee aE a ne OE en ee 


PARAMETER CODING MACRO VO4.00 1- 
CROSS REFERENCE TABLE (CREF VO04. 


-31¢ 


gue 
ws 
96 


ih: 


rt: 
r+ 4 


SeeEEER 
Sesee 


suuceuseeegs 


' 
ee 
paper 


geet 


Ne ed ol kel al ol od 
‘ 4 


-1440 


-144¢@ 
-1440 
-144¢@ 
-144@ 
-1440 


-1440 
-144¢@ 
-1440 
-144@ 
-144@ 
-1440 
-1446 
-144@ 


-144@ 


-1446 
-144@ 


-144@ 


DEC-83 09:58:43 PAGE 
00 ) 


71-30 


11-51 69-41 
15-16 15-27 


71-14 71-20 
78-14 


M-1 


77-50 80-43 
15-36 15-42 


77-120 


79-1 81-85 
15-40 15-49 


SEQ 0167 


PARAMETER CODING MACRO VO04.00 1-DEC-83 09:56:43 PAGE M-2 
CROSS REFERENCE TABLE (CREF VO4.00 ) 


ENDSW 
ENDTST 


MSDATA 


1-614@ 


7-198 
14-27 


10-20 
78-137 
11-57 
34-16 
27-38 
27-81 


69-61 


7-198 
14-270 


34-34 
27-42 
27-84 


71-16 


23-23 
71-54 


60-57 
23-17¢@ 
23-71¢ 
71-870 
23-1180 


27-45 


71-22 


23-25 
71-61 


23-23 
23-73 
80-59 
71-54 


27-48 


72-11 


23-52 
71-70 


23-23¢ 
23-730 
80-61 

71-54¢@ 


27-51 


72-109 


23-56 
71-92 
23-25 
23-81 
71-61 


27-54 


74-17 


23-60 
71-98 
23-250 
23-81¢ 
71-61¢ 


27-57 27-60 27-63 


74-47 75-19 76-20 


23-64 23-71 23-73 
71-103 

23-S2 23-S2e 23-56 
71-41 71-41% 71-78 
71-70 71-70@ 71-92 


27-66 


23-81 


23-S56¢ 
71-780 


71-92¢ 


27-69 


71-41 


23-60 
71-80 


71-98 


72-109@ 74-17 


23-S6@ 23-60 
71-410 71-54 
71-87@ 71-92 
80-610 
15-216 15-24 
15-33@ 15-39 
19-16@ 19-17 
19-20 19-20 
19-23@ 19-28 
34-28 34-280 
39-22 39-220 
42-38 42-380 
$1-55@ S2-21 
S2-48@ 52-53 
74-240 74-27 
7-198 7-198 
7-198 7-198 
7-198¢@ 


SEQ 0168 


27-72 


7-198 
7-198 


7-198@ 14-17 


PARAMETER CODING MACRO V04.00 1- 
CROSS REFERENCE TABLE (CREF VO04. 


MSDECR 


MSDEFA 


MSENDE 


MSERRI 


MSESCA 
MSESCS 
MSEXCP 


MSEXIT 


MSEXSE 
MSEXTJ 
M$GEN 


M$GENB 


MSGETS 


MSGETT 
M$GNGB 


1-D29¢ 
15-40 


7-144¢ 


9-250 


15-42¢ 


14-17 
69-4190 


C-83 09:56:43 PAGE M-3 
00 ) 


10-200 


72-110 
74-47@ 


°15-140 


70-124 
78-1374 


23-S2e 
23-1180 
71-85¢ 
80-594 
15-494 


27-484 
27-690 
34-340 


23-25 
23-71 
71-780 
80-57 


70-129 


15-34 
73-18 
80-62 


23-60 
71-54 
71-92 
72-1240 


27-54 
27-75 


15-27 
73-10¢ 


SEQ 0169 


15-344 
73-184 
80-62¢ 


23-6046 
71-54¢@ 
71-92¢ 
73-180 


27-S54¢ 
27-7S¢ 


80-59¢ 
74-47 


23-S2¢e 
23-73 
71-85 


PARAMETER CODING MACRO VO4.00 1-DEC-63 09:58:43 PAGE M4 5G 0176 
CROSS REFERENCE TABLE (CREF VO4.00 ) 


74-80 75-8 75-80 7 


6 76-90 77-500 60-439 60-53 60-530 81- 
MSGNIN ey 7-144 7-198 7 
- 7 
7 


9 
ioe 7-198 7-198 7-198 7-198 7-198 
1 


- - —-- a —— — eee eee eee 


PARAMETER CODING MACRO VO4.00 1- 
CROSS REFERENCE TABLE (CREF vO4. 


MSGNLS 


M$GNSU 
MSGNTA 


MSGNTE 
MSHAPT 
MSHNAP 
MSINCR 


38-610 38-63 38-63 
39-20 39-20 39-200 
39-220 39-220 39-33 
39-33@ 39-330 39-330 
39-390 39-390 39-390 
39-420 39-46 39-46 
42-38 42-38 42-380 
47-368 47-380 47-380 
51-43 51-43@ 51-430 
51-48@ 51-480 51-480 
$1-Si@ 51-55 51-55 
S2-21 52-21 S2-21¢0 
S2-24@ S2-24@ 52-41 
S2-41@ S2-41@ 52-416 
S2-45@ 52-45@ 52-45¢ 
S2-48@ 52-53 S2-53 
69-70 69-76@ 71-10 
71-16 71-18 71-180 
71-26 71-26@ 71-28 
71-37@ 71-370 71-370 
71-41 71-41 71-41 
71-34 71-54 71-540 
71-61@ 71-61@ 71-70 
71-78 71-78 71-78 
71-80 71-80 71-80 
71-85 71-85 71-85¢ 
71-67@ 71-870 71-870 
71-98 71-98 71-98 
71-103 71-103 71-1030 
72-13@ 72-13@ 72-109 
74-14 74-14 74-14 
74-21 74-21 74-21 
74-24 74-24 74-24 
74-27 74-27 74-27 
74-32 74-32 74-32 
74-34 74-340 74-340 
74-360 74-360 74-360 
75-190 75-34 75-340 
77-1200 76-14 78-14¢@ 
60-57 60-57 60-S7@ 
60-61@ 680-62 80-62¢ 
82-160 
23-17 23-17@ 23-23 
23-71 23-710 23-73 
71-70 71-70@ 71-78 
71-103 71-1030 

9-25 9-25@ 10-20 
69-76 69-76@ 72-124 
60-62 60-62@ 681-22 
77-66 77-660 

7-196 7-198¢@ 

7-196 7-196 

7-170 7-170@ 9-10 
15-9¢@ 15-96 15-130 
15-27@ 15-27@ 15-300 


=. 09:58:43 PAGE M-5 SEQ 0171 


51-55 51-55 51-55 51-55@ 51-S5@ 51-55@ 51-55@ 52-21 -21 
S2-21@ 52-21 S2-210 52-21@ 52-24 52-24 S2-24 52-24 S2-24 
52-41 S2-41 - 2-41 S2-41 52-41 52-41 S2-41 S2-41 S2-41 


9-10 9-100 9-10@ 10-10 10-10 10-10@ 10-10@ 11-51 11-S1¢ 
15-14@ 15-16 15-16 15-16@ 15-16@ 15-19@ 15-210 15-24@ 15-25¢ 
15-31@ 15-33@ 15-340 15-36 15-36 15-36@ 15-36@ 15-390 15-400 





PARAMETER CODING MACRO VO4.00 1-DEC-83 09:56:43 PAGE M-6 SEQ 0172 
CROSS REFERENCE TABLE (CREF V04.00 ) 


15-42 15-42 15-42@ 15-42@ 15-450 15-480 15-490 18-16@ 18-200 19-160 19-170 19-198 19-200 19-226 
19-23@ 19-280 19-298 20-380 23-17 23-17@ 23-178 23-23 23-230 23-230 23-25 23-25@ 23-250 23-500 
23-Se2 23-S2e@ 23-S2@ 23-56 23-56@ 23-560 23-60 23-600 23-600 23-64 23-640 23-640 23-71 23-710 
23-718 23-73 23-73@ 23-73@ 23-81 23-610 235-810 23-118 23-1180 23-1160 27-386 27-420 27-45@ 27-486 
27-S1@ 8 27-S4@ 38=627-57@ 3 8=927-60@ 27-630 27-660 27-690 27-720 27-750 27-780 27-810 27-840 34-130 34-186 


72-11@ 72-13@ 72-109@ 72-124@ 73-10 73-10 73-10@ 73-100 73-180 74-8 74-8 74-8¢ 74-80 74-10 
74-140 74-170 74-210 74-240 74-270 74-320 74-340 74-360 74-470 74-620 75-8 75-8 75 -6¢ 75-8¢@ 
75-34@ 76-9 76-9 76-90 76-9@ 76-350 77-50 77-500 77-66 77 -66 77 -66 77-660 77-660 77-660 


77-106@ 77-119@ 78-140  78-137@ 80-43 80-438 80-53 80-53 60-530 80-530 61-12 81-12 81-120 681-120 


MSIOSE 1-A0O0@ 7-1440 
MSLORO 1-C42@ 7-144@ 35-21 35-21 71-12 71-120 71-18 71-180 71-24 71-240 71-28 71-280 72-13 72-130 


MSMASK 1-871@ 7-1440@ 

MSMCHI 1-4¢@ 7-144 7-144@ 7-144¢@ 

MSMCLO 41-8240 7-144 7-144@ 7-144 

MSMSK1 1-877@ 7-144 

MsPOP 1-861@ 17-1448 9-25 9-25@ 10-20 10-20@ 10-21 10-21@ 15-14 15-140 15-25 15-25@ 15-34 15-340 
15-40 15-40@ 15-49 15-490 68-1 68-10 69-76 69-76@ 70-12 70-12@ 72-124 72-1240 73-18 73-180 
74-62 74-62@ 75-34 75-340 76-35 76-35@ 76-36 76-360 78-137 76-137@ 79-1 79-10 80-62 80-620 


MSPRIN 1-836@ 7-144@ 15-13 15-13@ 15-19 15-19@ 15-21 15-21@ 15-24 15-24@ 15-30 15-30@ 15-31 15-31¢ 


52-53¢ 
71-39 71-390 74-14 74-140 74-21 74-210 74-24 74-240 74-27 74-27@ 74-32 74-320 74-34 74-340 
MSPUSH 1-831@ 7-144@ 7-170 7-170@ 9-10 9-10@ 10-10 10-10@ 11-51 11-51@ 15-9 15-9¢ 15-16 15-160 
15-27 15-27@ 15-36 15-36@ 15-42 15-42@ 69-41 69-410 69-47 69-47@ 70-8 70-8¢@ 71-8 71-8@ 
73-10 73-100 74-8 74-80 75-8 75-6¢@ 76-9 76-90 77-50 77-SO0@ 77-66 77-66@ 80-43 80-430 


80 
MSPUT me tes 7-144@ 15-13 15-13 15-13@ 15-19 15-19 15-19 15-19 15-19 15-19@ 15-21 15-21 15-21 


S2-41 52-41 52-41 52-41 S2-41 52-41 S2-41@ 52-45 52-45 $S2-45 S2-4S@ S2-48 52-48 S2-48 
S2-48@ 52-53 52-53 52-530 71-37 71-37 71-37@ 71-39 71-39 71-390 74-14 74-14 74-140 74-21 


= 


E14 
PARAMETER CODING MACRO VO04.00 1-DEC-83 09:58:43 PAGE M-7 SEQ 0173 
CROSS REFERENCE TABLE (CREF V04.00 ) 


74-21 74-21 74-21 74-210 74-24 74-24 74-24 74-24 74-240 74-27 74-27 74-27 74-27 74-270 
74-32 74-32 74-32 74-32 74-320 74-34 74-34 74-34 74-340 74-36 74-36 74-36 74-36 74-360 
MSPUT1 ay 7-144@ 15-13 15-13 15-13@ 15-13@ 15-19 15-19 15-19 15-19 15-19 15-19@ 15-190 15-196 


MSSETS 1-D32@ 7-144@ 7-170 7-1700 9-10@ 10-10 10-10@ 11-51 11-510 - 15-90 15-16 15-16¢ 
15-27 15-27@ 15-36 15-36@ 15-42 15-42@ 69-41 69-410 69-47 69-47@ 70-8 70-8¢ 71-8 71-8¢ 
73-10 73-100 74-8 74-6@ - 75 -8@ 76-9 76-90 77- 77-S0@ - 77-66@ 860-43 80-430 


M$SVC 1-C33@ 7-144@ 15-13 15-1 15-14 15-14@ 15-19 15-19@ 15-21 15-21¢ - 15-24@ 15-25 15-25¢ 
15-30 15-30@ 15-31 15-31@ 15-33 15-33@ 15-34 15-34@ 15-39 15-39@ 15-40 15-40@ 15-45 15-45¢ 
15-48 15-48@ 15-49 15-49@ 16-16 18-16@ 16-20 18-200 19-16 19-160 -17 19-17@ 19-19 19-190 
19-20 19-20@ 19-22 19-22@ 19-23 19-23@ 19-26 19-28@ 19-29 19-29@ 20-36 20-38@ 23-17 23-17¢ 
23-23 23-230 23-25 23-25¢@ 23-50 23-50@ 23-52 23-S2e@ 23-56 23-56@ 23- 23-608 23-64 23-640 


1-92 71-920 71-98 71-98@ 71-103 71-103@ 72-10 72-10@ 72-11 72-11@ 72-13 
72-13@ 72-109 72-109 72-124 72-124@ 73-18 73-186 74-10 74-10@ 74-14 74-140 74-17 74-170 § 74-21 


EEE 


F14 
PARAMETER CODING MACRO VO4.00 1-DEC-83 09:58:43 PAGE M-8 SEQ 0174 
CROSS REFERENCE TABLE (CREF V04.00 ) 


74-21@ 74-24 74-240 74-27 74-270 74-32 74-320 74-34 74-340 74-36 74-360 74-47 74-470 74-62 
74-62@ 75-190 75-34 75-34@ 76-200 76-35 76-35@ 77-106 77-106@ 77-119 77-1190 78-14 78-149 78-137 


MSTLAB 1-C29@ 7-144@ 15-13@ 15-14@ 15-199 15-210 15-24@ 15-256 15-30@ 15-310 15-336 15-34@ 15-390 15-406 | 
15-45@ 15-46@ 15-490 18-16@ 18-20@ 19-160 19-17@ 19-19 19-200 19-220 19-23@ 19-286 19-290 20-386 | 
25-17@ 23-23@ 23-250 23-S0@ 23-520 23-560 23-600 23-640 23-710 23-730 23-810 23-1186 27-386 27-420 | 
27-45@ 27-480 27-51@ 27-540 27-570 27-600 27-630 27-660 27-690 27-720 27-750 27-78@ 27-810 27-840 
34-13@ 34-160 34-250 34-280 34-340 35-210 38-456 38-570 38-610 38-630 39-200 39-226 39-330 39-396 
39-42@ 39-460 42-380 47-36@ 51-430 51-48@ 51-51@ 51-55@ 52-210 52-240 52-410 52-450 52-486 52-536 
69-76@ 71-10@ 71-12@ 71-16@ 71-186 71-220 71-24@ 71-286 71-37@ 71-390 71-41@ 71-54@ 71-61@ 71-706 
71-76@ 71-680@ 71-85@ 71-876 71-920 71-98@ 71-103@ 72-10@ 72-11@ 72-13@ 72-109 72-124@ 73-18@ 74-106 | 
74-140 74-170 74-210 74-240 74-27# 74-320 74-340 74-360 74-470 74-620 75-340 76-35@ 77-106@ 77-119¢ | 


MSTSTL 1-C21@ 7-144@ 15-13 15-13@ 15-14 15-14@ 15-19 15-19@ 15-21 15-210 15-24 15-24@ 15-25 15-256 
15-30 15-30@ 15-31 15-31@ 15-33 15-330 15-34 15-34@ 15-39 15-39@ 15-40 15-40@ 15-45 15-45¢ 
15-48 15-48@ 15-49 15-499 16-16 18-166 18-20 16-20@ 19-16 19-16@ 19-17 19-17@ 19-19 19-196 
19-20 19-20@ 19-22 19-228 19-23 19-23@ 19-28 19-28@ 19-29 19-290 20-38 20-38@ 23-17 23-17¢ 
23-23 23-23@ 23-25 23-25@ 23-50 23-50@ 23-52 23-S2@ 23-56 23-56@ 23-60 23-600 23-64 23-640 
23-71 23-718 23-73 23-73@ 23-81 23-6819 23-118 23-1186 27-38 27-380 27-380 27-42 27-420 27-420 
27-45 27-45@ 27-45@ 27-48 27-480 27-484 27-51 27-S1@ 27-518 27-54 27-340 27-540 27-57 27-576 
27-S7@ 27-60 27-60@ 27-600 27-63 27-63@ 27-630 27-66 27-660 27-660 27-69 27-690 27-698 27-72 
27-72@ 27-72@ 27-75 27-75@ 27-75@ 27-78 27-760 27-780 27-81 Hie 27-81% 27-84 27-849 27-846 


MSWORD 1-C94@ 7-144@ 7-196 7-198@ 68-8 8-8 6-80 23-17 23-17 23-170 23-178 23-23 23-23 23-230 
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1-;62@ 7-144@ 77-119 

MEMORY 1-; 7-1440@ 

OPEN 1-;710 7-1440 

POINTE 1-;76@ 7-144@ 7-176 

POP 7-112@ 20-39 21-33 23-116 24-42 27-32 29-68 31-32 33-24 35-48 36-26 37-26 38-84 39-47 
40-25 42-53 43-51 46-23 47-40 49-48 50-33 50-63 51-58 S2- 58-24 59-21 59-24 59-45 
60-27 61-34 62-49 63-24 63-43 64-21 64-36 65-141 66-26 66-51 66-74 - 72-83 

PRINTB 1-<39@ 7-144@ 15-13 15-19 15-21 15-24 15-30 15-31 15-33 15-39 15-45 15-48 18-16 18-20 


ai GAL, NE 2k A nd 


PARAMETER CODING MACRO VO4.00 1-DEC 


83 09:58:43 PAGE M-9 SEQ 0175 
CROSS REFERENCE TABLE (CREF v04.00 
38 


~~! 


PRINTF 1-<79@  7-144@ 20- 34-13 34-25 34-28 38-45 38-57 38-61 38-63 39-20 39-22 39-33 39-39 
39-42 39-46 42-38 47-38 51-43 51-48 51-51 51-55 S2-21 52-24 52-41 52-45 52-48 52-53 
71-37 71-39 74-14 74-21 74-24 74-27 74-32 74-34 74-36 


PRINTX 1-*59@ 7-144@ 19-16 19-17 19-19 19-20 19-22 19-23 19-28 19-29 
PUSH 7-101@ 20-15 21-16 23-15 24-38 27-18 29-19 29-46 30-92 30-108 30-122 31-19 33-21 35-17 
36-17 37-14 38-16 39-14 40-14 42-18 43-15 46-17 47-15 49-22 50-19 50-27 51-15 S2-31 


S2-37 56-13 S9-11 59-35 60-13 61-12 61-14 62-13 62-14 63-13 63-37 64-14 64-19 65-12 
65-102 66-14 66-42 66-65 66-89 72-17 


READEF 1->03@ 7-144@ 71-12 71-18 71-24 71-28 

RFLAGS 1->08@ 7-144@ 

SETPRI 1->13@ 7-144@ 72-13 74-10 

SETVEC 1->180 7-144@ 

SLASH 1->240 7-144¢ 

STARS 1->386 7-33¢ 7-144@ 13-91 13-103 13-105 13-116 17-3 17-24 18-2 18-13 19-2 19-13 20-2 
20-13 21-2 21-14 22-3 22-13 23-3 23-13 24-3 24-9 24-14 24-23 25-2 25-11 26-3 
26-19 27-3 27-12 28-3 28-14 29-2 29-16 30-3 30-14 31-3 31-17 32-3 32-12 33-3 
33-19 34-2 34-9 35-2 35-15 36-3 36-13 37-3 37-12 38-3 38-14 39-3 39-12 40-3 
40-12 41-3 41-15 42-3 42-15 43-3 43-13 44-3 44-8 45-1 45-10 46-3 46-14 46-26 
46-40 47-2 47-13 48-2 48-6 49-3 49-20 50-3 50-17 51-3 51-13 S2-3 S2-13 53-3 
53-12 54-3 54-13 55-3 55-13 56-5 56-16 56-33 56-45 57-2 57-15 58-2 58-11 59-3 
59-9 59-27 59-33 60-2 60-11 61-2 61-10 62-2 62-11 63-2 63-11 63-27 63-35 64-2 
64-12 65-2 65-10 66-2 66-12 66-31 66-40 66-54 66 -63 66-77 66 -87 67-2 67-5 

svc 1->5S2@ 7-143@ 7-144 

XFER 1-8120 § 7-144@ 69-610 71-160 71-220 72-110 72-1098 74-170 74-47@ 75-190 76-200 

XFERF 11-8160 7-144 

XFERT 1- 7-144 


